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PREFACE 


This document is a guide to the design and coding of a user 
application program (UAP) that will operate with an SCA Module 
in the calling or answering station of a switched-line network. 
It should be used as a reference, in conjunction with the 
general SCAM reference manual (SCA Data Communications, Chapter 


2), by analysts and programmers responsible for the development 
of these programs. | 
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INTRODUCTION 


This document is a guide to the design and coding of a user 
application program that is to operate with an SCA Module in the 
calling or answering station of a switched-line network. 


Section 2 defines switch-line concepts and terminology. 


Section 3 is a step-by-step guide to the design of a diale- 
calling UAP. | 


Section 4 presents an example of a dial-calling UAP. 


Section 5 is a step-by-step guide to the design of a dial- 
answering UAP, 


Section 6 presents an example of a dial-answering UAP. 


Section 7 presents supplemental information about the use of 
SCAM in dial configurations. This section will be 
deleted when the general SCAM manual (SCA Data 
Communications Chapter 2) is updated and rereleased. 


Appendix A is a listing of the sample dialecalling UAP 
presented in Section 4. 


Appendix B is a listing of the sample dial-answering UAP 
presented in Section 6. 


CHANGE IN TERMINOLOGY 


In previous SCA software documents, the term “Synchronous 
Communications Adapter Module" (SCA Module) has been used _ to 
refer to alli routines released to support SCA communications, 
The same term has been used to refer to any program assembled 
from some selection of these routines. In this and subsequent 
documents, the term “Synchronous Communications Access Method" 
(SCAM) will be used to refer to the distributed routines. The 
term "SCA Module" will still be used to refer to a program 
assembled from some selection of the SCAM routines. 


In previous documentation the term "Dial-Out" has been used to 
refer to a station, UAP, or SCA Module that initiates calls over 
a switched line. The term “Dial-In”" has been used to refer to a 
station, UAP, or SCA Module that receives calls over a switched 
line. In this and subsequent documents, the term “dial-calling” 
or "calling" will be used in place of "“dial-out". The term 
dialeanswering" or "answering" will be used in place of "dial- 
in”. 
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SWITCHED LINE CONCEPTS AND TERMINOLOGY 


A two-way alternate, switched (dial) connection is a temporary 
connection of two stations over the public telephone network in 
order to achieve two-way data communications. A connection is 
established when a dial-callingq station successfully calls a 
dial-answeringq station, and is terminated when either station 
executes a disconnect command. Normally both stations issue a 
disconnect command when a serious error occurs or when either 
station sends a DLE E@T. — 


After a connection has been established and a data file and an 
E@T have been transmitted, it is not necessary to re-dial before 
beginning a new file transmission, A receiving station may 
request to become the sending station at the end of any file 
transmission. : 


I AM AND WHO ARE YOU IDENTIFICATIONS 


Over public telephone lines it is possible for anv station to 
communicate with any other station if their software and 
hardware are compatible. Therefore it is possible that data may 
be "stolen" by or received from a station that is not a 
leqitimate part of a given communication network. 


To help prevent theft of data or receipt of invalid data, the 
user may assign identifying codes to each station in his 
network. These codes will be transmitted and checked for 
validity each time a connection is made, before data 
transmission begins. A station's identifying code is called its 
I AM ID. Each station that is to perform ID checking must have 
a list of the I AM codes of the stations with which it may 
communicate. The codes in this list are called the WHO ARE youUu 
(WRU) IDs, ID checking can be performed by the calling or 
answering station or by both or neither. 


The UAP (calling or answering) defines its station's I AM In and 
the list of valid WRU Ins when it initializes the SCA Module. 
(See Initialization Record in Chapter 2.) The Handshaking 
Routine (calling or answering) automatically sends an I AM ID if 
one has been defined and automatically performs In checking if a 
list of WRU IDs has been defined. If a station that is to 
perform ID checking receives an invalid WRU ID or no WRU ID, the 
station's Handshaking Routine disconnects the line. 


The IDs may be defined or redefined whenever initialization 
occurs. Additional security may be achieved by periodically 
changing the network's Ins. 
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SWITCHED LINE CONCEPTS AND TERMINOLOGY 


NORMAL SEQUENCE OF EVENTS == CALLING STATION 


The Dial-Calling SCA Module waits for the UAP to place the phone 
number of a station to be dialed in the Call Work Area in 
Common. It then calls the station, sends an ENQ, and reads an 
ACKO. If an I AM ID was passed to the SCA Module through 
initialization, then it sends its I AM ID preceding the ENQ. If 
the calling SCA Module is to perform ID checking, it expects to 
receive a WRU ID preceding the ACKO, and it will not continue 
unless it receives a valid WRU ID. 


After the (ID) ENQ has’ been sent and the (ID) ACKO has been 
received, the calling SCA Module sends either data or an EOT, as 
directed by the UAP. If there is data to send, the SCA Module 
transmits data until the UAP requests that it send an EOT. 


After it has sent an EOT, the calling SCA Module expects to 
receive an EOT or an ENQ from the answering station. If it 
receives an ENQ, the calling SCA Module reads data until it 
receives an EOT. It then checks to see if its UAP has more data 
to send. 


The calling SCA Module continues to alternately send data or an 
EOT and then receive data or an EOT as long as either station 
has data to send or until a serious error occurs or it receives 
a DLE E@T. It assumes that both stations have finished sending 
data when it receives an EOT instead of an ENQ from the 
answering station and it finds that its UAP has no data to send. 
When this happens or when a serious error occurs or a DLE EOT is 
received, the calling SCA Module sends a DLE EOT, disconnects 
the line, and waits for another phone number to dial. (Section 
3, Write Data step 3c describes a method by which the UAP can 
force the calling SCA Module to continue to exchange EOTs even 
after it has detected that neither station has data to send.) 
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SWITCHED LINE CONCEPTS AND TERMINOLOGY 


NORMAL SEQUENCE OF EVENTS <= ANSWERING STATION 


2=3 


The Dial-Answering SCA Module waits for a call to come in from a 
calling station. When a call has come in, it reads an ENO and 
responds with an ACKO. If the answering station is to perform 
ID checking, the SCA Module expects to receive a WRU ID 
preceding the ENO, and it will not continue unless a valid WRU 
ID is received. If an I AM ID was passed to the SCA Module 
through initialization, the SCA Module sends its I AM ID 
preceding the ACKO. 


After the (IN) ENO has been received and the (ID) ACKO has been 
sent, the SCA Module expects to read data. It normally reads 
data until it receives an FOT, If the calling station has no 
data to send, it can send an FE@T immediately after sending an 
ENO and receiving an ACKO. 


After an EOT has been received, if the UAP wants to send data, 
the SCA Module sends an ENO. If the calling station responds 
with an ACKO, the SCA Module begins transmitting data supplied 
by the UAP. It transmits data until the UAP requests that it 
send an E@T. If the calling station sends an ENO in response to 
the E@T, the SCA Module sends an ACKO and again expects to read 
data. | 


The dial-answering SCA Module continues to alternately receive 
data or an EOT and transmit data or an EOT until the UAP 
requests that it disconnect the line, a serious error occurs, or 
the calling station sends a DLE EOT. A serious error or the 
receipt of a DLE EOT causes the SCA Module to post an error to 
the UAP and disconnect the line. After disconnecting the line, 
the SCA Module waits for another call to come in. 
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INTRODUCTION 


This section is a step-by-step description of the operations to 
be performed by a user application program (UAP) that is to 
function with a Dial-Calling SCA Module. 


PROGRAM STRUCTURE 
In this section the functions of a calling UAP have been divided 
into six general categories: 
@ . Housekeeping 
® Initialization 
@ Place Call 
e Write Data 
@ Read Data 
e Check Status 


The following diagram shows the relationship of these functional 
categories. 


sen 


HOUSEKEEPING 


INITIALIZATION 
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DESIGN OF A DIAL-CALLING USER APPLICATION PROGRAM 


Housekeeping is performed once only, immediately after the 
program 1S loaded. Initialization is performed after 
housekeeping. If version 2 of the Initialization Routine was 
chosen, the UAP may reinitialize before placing a new call. If 
Version 3 of the Initialization Routine was chosen, the UAP must 
reinitialize before placing a new call. The UAP places a call 
after it first initializes. It places a new call when an error 
has occurred, when neither station has any more data to send, or 
‘when for any reason it disconnects the line. The UAP writes 
data and an EOT or just an EOT after placing a call. It may 
write data again after receiving an. EOT from the answering 

station. It reads data after sending an EOT. It checks status 
whenever it iS waiting for the SCA Module to transmit or receive 
data. | | 


A dial-calling station always writes first after placing a call. 
A dial-calling UAP must include Write Data steps 1 and possibly 
2 or 3, and a Dial-Calling SCA Module must have a Write Routine 
and at least one Transmit Buffer even for an application in 
which the calling station never actually transmits data. 
However, for an application in which the calling station never 
receives data, the Dial-Calling SCA Module need not have a Read 
Routine, and the calling UAP need not include Read Data logic. 
(Read Routine in Section 7 describes programming considerations 
for a Dial-Calling SCA Module assembled without a Read Routine.) 


HOUSEKEEPING 


1. Determine that the SCA Module has been loaded and is active, 
Test tECB+6,7 for a valid SCA partition number. If the SCA 
Module has not been loaded within some time frame (e.g., 10 
cycles through the machine), it is advisable to print an 
error message and terminate. 


2. Initialize the SCA Module's PSB to N (normal). 


3. Load initial values into other areas of Common if this was 
not done by defining constants into them at assembly time. 


4. Perform any application-determined housekeeping procedures 
such as initializing work areas, opening files, etc. 


If the SCA‘s partition number is constant and known at assembly 
time, then step 1 can test for a specific partition number in 
#ECB+6.7.. Step 2 can be eliminated because the correct PSB can 
be initialized to N at assembly time. 
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DESIGN OF A DIAL=CALLING USER APPLICATION PROGRAM 


INITIALIZATION 


3-3 


1. 


2. 


Wait for the System Mailbox to become available. Test the 
Mailbox Status Byte for an A (available). If it is not an 
A, branch and switch to this test (wait). If it is an A, 
continue. | 


If no other partitions are using the Mailbox, the constant A 


should be defined into the Mailbox Status Byte at assembly 


time or this step should be omitted. 


Move the Initialization Record to the Mailbox, post the 
Mailbox busy, and address it to the SCA partition. 


a. Move a B to the Mailbox Status Byte. 


bs Move a CO (alpha 0) to the To-Address field of the 
Mailbox, . 


ce. Move the UAP's partition number or ID to the From- 
Address field of the mailbox. 


dad. Move the Initialization Record to the Mailbox. 
Normally all or most of the Initialization Record 
can be defined as a constant in the UAP source deck. 
However, for some applications it may be necessary 
for the UAP to perform some workstation or other I/0 
to get information to complete the Initialization 
Record. | 


Reset the Inhibit Switch to zero. (This step is optional if 
this is the first or only initialization and the Inhibit 


Switch was initialized to zero at assembly time or at 


- Housekeeping step 3.) 
Analyze the result of the attempt to initialize the SCA 


Module. 


a. Test for an initialization error. (Test the Inhibit 
Switch for an E.) If there has not been an 
initialization error, continue to step 4b. 


Normally an initialization error will require 
analysis and perhaps reassembly. Therefore the UAP 
should print an error message requesting a memory 
dump, reset the Mailbox Status Byte to A 
(available), and terminate. 


The SCA Module does not reset the System Mailbox to 
A after posting an initialization error. This 
allows the UAP to print the invalid Initialization 
Record in the Mailbox before allowing other 
partitions to use the mailbox, Note that the SCA 
Module may have destroyed part of the contents of 
the Mailbox while trying to process the 
Initialization Record. 
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DESIGN OF A DIAL“=CALLING USER APPLICATION PROGRAM 


INITIALIZATION, Step 4 


b. Test to see if initialization has been successfully 

| completed. After successful initialization the SCA 
Module moves the UAP's partition number (the From- 
Address field of the System Mailbox) to the 
Partition that Last Initialized field (#ECB+4,5) of 
the CCB and posts the System Mailbox available (A in 
the Mailbox Status Byte). The UAP can test either 
or both of these fields to see if initialization has 
been successfully completed. 


If Initialization has not been’ successfully 
completed, return (branch and switch) to step 4a. 
If initialization has been successfully completed, 
continue. | 


Note: the UAP loops through step 4 until initialization has 
been completed. The UAP should not wait indefinitely for 
the SCA Module to process the Initialization Record. If 
after some period (e.g., ten cycles), the SCA Module still 
has not processed the Initialization Record, the UAP should . 
print an error message, free the Mailbox, and perhaps take a 
memory dump. It is likely that the SCA partition has not 
been loaded properly. The user’s first attempt to correct 
the problem should be to reload the SCA partition and try 
again. If this fails, further problem analysis is required, 


PLACE CALL 


1. If this is to be the first call after the UAP is loaded, 
initialization has already taken place. If this is not the 
first call, and Version 3 of the Initialization Routine was 
selected, the UAP must reinitialize before continuing. If 
Version 2 was selected, the UAP may reinitialize. To 
reinitialize, execute the Initialization logic. 


2. If this station has data to transmit after the call is 
placed, perform Write Data steps 4-7, These steps should be 
performed before the call is placed so that there is a data 
block for the SCA Module to transmit immediately after it 
places the call. If this preparation is not made, one or 
both stations may time out after the connection is made 
while the calling SCA Module waits for data to transmit. | 


3. Prepare the Call Work Area. 


a. Move the length of the phone number to the Length 
: field (#CWA+18,19) of the Call Work Area. | 


b. Move the phone number to the Phone Number field 
(*CWA+20).. 


Cc. Move a OD (ready) to the Call Work Area Status Byte 
(f#CWA). | 
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DESIGN OF A DIAL-CALLING USER APPLICATION PROGRAM 


PLACE CALL | 
4, Test to see if the call has been successfully placed. 


a. The SCA Module posts an A (available) in the Call 
Work Area Status Byte after it has_ successfully 
placed the call. If the status byte contains an A 
and this station has data to transmit, go to Write 
Data step “5. If it contains an A and there is no 
data to transmit, go to Write Data step 1b. 


Note: An A in the Call Work Area Status Byte does 
not mean that handshaking and the exchange of IDs 
has been successfully performed. If there is a 
handshaking or ID error, the UAP will detect it when 
it checks status from its Write Data or Read Data 
logic. 


b. The SCA Module posts an E (error) in the Call Work 
Area Status Byte if there is an error in dialing 
(for example, a busy signal or no answer or an 
invalid phone number). If the status byte contains 
an E, print an error message and terminate or return. 
to step 2. 


Note: The SCA Module tries eight times to dial the 
number before it posts an E in the Call Work Area 
Status Byte. It may be several minutes before the E 
is posted. 


c. If the status byte still contains a D (ready), then 
the SCA Module is still trying to dial. Branch and 
switch to the beginning of step 4. 


WRITE DATA 


The calling station may transmit data after it has placed a call 
and again after it has received an EOT from the answering 
station. The application will determine how many files (if any) 
the calling station has to send, or the UAP may perform some 
workstation or other I/O to determine if there is data to send. 


If the calling station has more than one logical file to 
transmit, the files may be sent separately (each terminated by 
an EOT) or they may be sent together as a single transmission. 
If they are sent as a single transmission, header records 
(preceded by an SOH; see step 6d) may be used to identify them 
or some user-defined code in the records may identify them. 
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WRITE DATA 


1, If the call has just been placed, the calling station can 
write data or it can send an EOT and give the answering 
- gtation the option to send data. 


a. To weriee data, go to step u. 


b. To send an. BOT ana give the answering station the 

| option to send data, move a Q (EOT request) to the 
Write Flag and a D (ready) to the status byte of the 
next Transmit Buffer. Go to Read Data. 


2. If an EOT has. just been received by this station's Read 
Routine (see Inhibit Switch © code W in Section 7), this 
station can “write data, or (if it has no data to send) it) 
can give the answering station the option to send more data 
or it can disconnect the line. 


a. To write data, go. ‘to step 4, 


b. To give. the answering station the option to send 
more data, reset the Inhibit Switch to zero and go 
to Read = Data. Since this is not the first 
transm ission of the call, the SCA Module checks’ for 
a D (write request) in the Operation Code in the 
CCB. When it finds that the Inhibit Switch has been 
Cleared but a D has not been posted in the Operation 

Code, it assumes that the UAP has no data to send. 
It sends an EOT and waits for a Ee SPonee from the 
answering station. 


c. To ‘diseonnest. “wie line, move an _E (disconnect 
request) to the Operation Code in the CCB and reset 
the Inhibit Switch. Go to Place Call. The SCA 
Module will send a DLE EOT, disconnect the line, and 
wait for another phone number to dial. 


Note: If the UAP is going to reinitialize before 
placing a new call, do not reset the Inhibit Switch. 
It will be reset at Initialization step 3. 


3%. Lf an -EOT has just been received by this station's 
Handshaking Routine (the answering station had no data _ to 
send; see Inhibit Switch code X in Section 7), this station 
can write data, or (iF ‘it has no data to send) it can allow 
the SCA Module to disconnect the line or it can force the © 
line connection to be maintained. 


a. To write data, go to step 4, 
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WRITE DATA, Step 3 


b. 


To allow the SCA Module to disconnect the line, 
reset the Inhibit Switch to zero without posting a 
code in the Operation Code. Go to Place Call. The 
SCA Module detects that neither station has data to 
send. it sends a DLE EOT, disconnects the line, and 
waits for another phone number to dial. 


Note: If the UAP is going to reinitialize before 
placing a new call, do not reset the Inhibit Switch. 
It will be reset at Initialization step 3. 


If for some reason the UAP wants to maintain the 
connection, even when neither station has data _ to 
send (if it expects that one of the stations may 
have data to send later), it should use a Transmit 
Buffer to request that an EOT be sent. Move a Q 
(EOT request) to the Write Flag and a D_ (write 
request) to the Operation Code in the CCB and then 
clear the Inhibit Switch to zero. Go to Read Data. 
The SCA Module will send the EOT and go to its Read 
Routine. | 


4, To start the SCA Module transmitting data, the UAP must 
perform the following steps: 


Ae 


b. 


Test the Transmit Buffer Status Bytes. All of them 
should contain A's. (They should have been 
initialized to A at assembly time or at Housekeeping 
step 3.) If a Transmit Buffer Status Byte contains 
some other character, then the buffer contains data 
or a control character request (Write Flag code) 
that was prepared for a previous transmission but 
not transmitted because of an error. The 
application will determine what the UAP should do 
with these buffers. 


One possibility is to print or save the contents of 
the buffers and then clear the buffers by resetting 
all Write Flags to zero and moving an A (available) 
to the status bytes of all buffers. By posting the 
buffers available, the UAP allows the contents of 
the buffers to be destroyed at step 6. Continue to 
step 4b. 


Another possibility is to continue the transmission 
from where it was left. Reset to A any Transmit 
Buffer Status Byte that is other then A or D and 
continue to step 4b. The UAP must somehow insure 
that it is now communicating with the station that 
was originally intended to receive the data. 


Move a D_ (write request) to the Operation Code in 
the CCB. (This is optional if this is the first 
transmission of the call.) Reset the Inhibit Switch 
to zero, 
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WRITE DATA, Step 6 


d. Move the appropriate code to the Write Flag of the 
buffer if this buffer is to be preceded by an SOH 
(Start of Header) or if it is to be terminated by an 
ETX (End of Text) for some application-determined 
reason. 


e. Move aD (ready) to the Buffer Status Byte. 


7. If more than one Transmit Buffer is being used, the UAP must 
have some pointer (perhaps an index register) to point to 
the correct Transmit Buffer. Update the pointer to point to 
the next Transmit Buffer. (See Sequential Buffers in 
Section 7. 


8. Return to step 5, 


9. When there is no more data to send, request that an EOT be 
sents: 


a. Move a Q (send EOT request) to the Write Flag of the 
next Transmit Buffer. 


b. Move aD (ready) to the Buffer Status Byte. 


c. Go to Read Data. If the SCA Module was assembled 
without a Read Routine, go to Check Status. 


Note: If there are two or more Transmit Buffers, an error in 
the transmission of one of the last data buffers might cause 
the SCA Module or the UAP* status checking routine (which 
will be entered when the UAP returns to Read Data to send a 
DLE EOT. The SCA Module would not detect the send EOT 
request just posted in the Write Flag until the next time 
this station is called. This problem is avoided by clearing 
the Write Flag to zero (at step 4a) before preparing any 
Transmit Buffers for transmission. 
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READ DATA 


3-10 


Post all Receive Buffers available. Move an A to the status 


byte of all Receive Buffers. 


Test a buffer to see if it has been filled with data by the 
Read Routine. The version of the Get-Buffer Routine 
selected will determine which buffer to test. If Version 2 
or 3 was selected, the UAP may test more than one buffer. 


(See Sequential Buffers in Section 7. ) 


a. Yf data has not’ been received (Buffer Status Byte = 
A), check the status of the SCA Module. Tt is 
possible that a serious error has occurred or an FOT 


has been received. The tests for these conditions. 


and the actions the WAP should take are discussed 
under Check Status below. 


If data has not been received and the status is 
normal (no serious error, no FOT), then the SCA 
Module must still be trying to read a data block. 
Branch and switch to the beginning of step 2 to wait 
for the SCA Module to complete its read. 


If an FEOT has been received (Inhibit Switch = X or 
W), the Check Status logic branches to Write Data. 


If a serious error has occured, the UAP's Check 
Status logic returns to Place Call. 


b. If data has been received (Buffer Status Byte = F), 
process it and qo to step 3. j|j|§Processing usually 
means outputting the data area of the buffer to the 
line printer or some storage device. Relative 
locations 5-8 of the buffer prefix will contain the 
number of data characters received. Processing may 
mean examining the data in the buffer and making 
decisions based on the contents. If header records 
are expected, examine relative location 15 of the 
buffer to see if the data block is preceded by an 
SOH instead of the standard STX. If data blocks 
terminated by an FTX are expected, examine relative 
location N of the buffer (N = 20 plus the data 
length) to see if the data block is terminated by an 
ETX instead of the standard ETR. 


c. If the Receive Buffer Status Byte does not contain 
an E (full), it should contain an A (available) or V 
(being filled by the Read Routine). If it does not 
contain any of these values (if it has been overlaid 
by another partition or by a program error), the 
Read Routine will be waiting for the buffer to be 
posted available and will be sending WACKs. ‘The UAP 
will loop between step 2 and Check Status 
indefinitely or until the answering station gives 
up. To detect such errors, the UAP can test for an 
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READ DATA 


3. Post the Receive Buffer available. Move an A to the status 
byte of the buffer just processed. 


4, If more than one Receive Buffer is being used, the UAP must 
have some pointer (perhaps an index register) to point to 
the correct Receive Buffer. See Sequential Buffers in 
Section 7. Update the pointer to point to the next Receive 
Buffer, | : : | 


5 Return to step 2. 


CHECK STATUS 


The UAP should check the status of the SCA Module whenever it is 
waiting for the SCA Module to complete some I/O operation. The. 
purpose of status checking is to detect errors and the 
occurrence of unusual conditions during the transmission or 
receipt of data or during handshaking or ID exchange. 


1, Test for a non-zero code in the Inhibit Switch. If the 
Inhibit Switch is zero, go to step 4, | 


2. If the Inhibit Switch setting is X or W (EOT received), go 

to step 3. If it is other than X or W, then it represents 

an error. After posting an error code in the Inhibit Switch 

the SCA Module disconnects the line and waits for another 
call. 


a. The UAP may ‘take special action depending on the 
type of code posted. However, for most applications 
it will be possible to treat all codes the same. 


b. Print an error message. The error message should 
show the Inhibit Switch setting and the PSB setting. 


c. Reset the Inhibit Switch to zero. Reset the 
Partition Status Byte to N in case it was also set. 


Note: If the UAP is going to reinitialize before 
placing the next call, do not reset the Inhibit 
Switch. It will be reset at Initialization step 3. 


d. If the station has been transmitting data, there may 
be untransmitted data and unsatisfied control 
character requests in the Transmit Buffers after the 
error has been posted. The application will 
determine what the UAP should do with these buffers. 
They can be handled at this step or the next time 
the UAP enters its Write Data logic. Write Data 
step 4a discusses methods of handling them. 


e. Return to Place Call. 
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CHECK STATUS 


3. If the Inhibit Switch setting is W, then an FOT (normal end 
of transmission character) was received by this station's 
Read Routine. Go to Write Data step 2. If the Inhibit 
Switch setting is X, then the calling station has no data to 
send. (It ‘sent an EOT instead of Bare eRo to Write Data 
step 3. | | | | : 


b. If chere is no Inhibit Switch setting, test for a code other 
than N (normal) in the Partition Status Byte (PSB). 


a. If the PSB is set to N, then the status is normal. 
Return to Read Pata step 2 or Write Data step 5 to 
see if the SCA Module has com ple ted the operation 
the UAP is waiting for. 


b. If there is a PSB code other than N, the UAP may 
take special action depending on the code set. All 
of the PSB codes indicate errors except N, T (TI 
received), and possibly S (WACKs received). The 
application will determine the action to be taken. 


c. Before the SCA Module posts an error. in the PSB, it 
has tried eight times to perform the I/O operation. 
The UAP can allow the SCA Module to continue to try 
to perform the operation or it can reauest that the 
line be disconnected. To request that the line be 
disconnected, qo to step 4d. 


To request that the operation he retried when this 
station is transmitting data (Activity Switch = D), . 
move a 7? to the Transmit Buffer Status Byte. (The 
SCA Module posts an F in the status byte after a 
transmission error.) 


If the answering station is receiving data (Activity 
Switch = A), the operation will automatically be 
retried until it is suecessful or until the UAP 
posts a control character request in the Read Flag 
in the CCB. 


Add one to a counter so that the UAP can "give up" 
after some number of PSB errors. 


Print an error message and the PSB code. 
Reset the PSB to N. | 


Return to the Read Data step 2 or Write Data step 5 
to wait for the “operation to be retried. 
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CHECK STATUS, Step 4 


d. If the UAP does not want the operation to be 
retried, or if it has been counting PSB errors” and 
is ready to “give up", it should request that a DLE 
EOT be sent so that the line will be disconnected. 


If the station is reading data (Activity Switch = 
A), move a 2 (send DLE EOT) to the Read Plag in the 
CCB. If the station is writing data (Activity 
Switch = D), move aD (send DLE EOT) to the Write | 
Flag in the buffer prefix and aD (ready) to the 
Buffer Status Byte. If the SCA Module has’ returned 
to its Handshaking Routine (Activity Switch = 0), 
there is no need to send a DLE EOT. | 


Print an error message and the PSB code. 
Reset the PSB to N. 


See step 2d and Write Data steps 4a and 9 for a 
discussion of the problem of untransmitted Transmit 
Buffers, : 


e. If Version 2 of the Initialization Routine was 
selected and the UAP is going to reinitialize before 
Placing a new call, move a numeric code to the 
Inhibit Switch. The code will be reset at 
Initialization step 3. 


£. Go to Place Call. 
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INTRODUCTION 


SUMMARY OF 


The sample user application program (UAP) presented in this 
section may be run with an SCA Module designed for the calling 
station of a switched network. 


The logic of the sample UAP is shown in an overview flowchart in 
figure 4-1, The same flowchart is broken into segments in 
figure 4-2 and explained in the narrative accompanying the 
figure. A listing of the program appears in Appendix A. 


FUNCTIONS 


The sample UAP gets phone numbers to dial from CALLNO cards. 
The format of the CALLNO cards is shown under Card Input below. 
The UAP moves the call number information to the Ca it Work Area 
and posts the work area ready so that the SCA Module will place 


the call. After successfully placing a call, the SCA Module 


sends its ID "CALLER" and an ENQ to the answering station. It 
expects the answering station to respond with the ID “HELLO” and 
an ACKO. The IDs “CALLER" and "HELLO" are passed to the SCA 
Module via the Initialization Record. 7 


The CALLNO card indicates to the UAP whether it is to write and 
then read data or read data only. If it is to write first, it 
reads data cards and moves the card data to the Transmit 
Buffers to be transmitted. When it reads a unit separator card, 
it requests that. an EOT be sent. It then expects to receive 
data followed by an EOT or to receive just an EOT from _ the 
answering station. It prints the data it receives on the line 
printer. | 


If the CALLNO card indicates that the calling station is to read 
only, the UAP first requests that an EOT be sent and then enters 
its read data logic. 


In either case (write and then read, or read only), after 


receiving an EOT from the answering station, the UAP requests 


that a DLE EOT be sent and the line be disconnected, and then it 
looks for another CALLNO card in the card reader. 
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CARD INPUT 


This UAP reads phone numbers to be dialed and data to be 


transmitted from cards. The card input conventions described 


CALLNO 


here apply to this UAP only. Another UAP might get phone 
numbers from the workstation or tape or disc or they might be 
assembled into the UAP. Data to be transmitted may be read from 
tape or disc for many applications. | 


Cards 
The CALLNO cards read by the sample UAP have the following 
format: - 
Columns Field Contents .. Meaning 
1-6 Card ID CALLNO CALLNO card identifier, 
7 Function R | This station should read 
Code | data only. | 
W This station should 
, write data first and 
| then read data. 
18-19 Length 2 numeric The length of the phone 
| : digits number to be dialed, 
01 to 24, 
20-43 Phone numeric The phone number to be 
Number digits) dialed: maximum 24 


digits. 


Transmission Deck 


The "transmission deck" input to this sample program consists of 
data cards to be transmitted to the calling station and a unit- 
separator card. A unit-separator card must be the last card of 
every transmission deck. 4 


A CALLNO card with function code W (write first) must be 


followed by a transmission deck. A CALLNO card with function 
code R (read only) may not be followed by a transmission deck, 
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SELECTION OF SCAM ROUTINES 


This UAP was designed to run with an SCA Module made up of the 
following routines: 


@ Handshaking Routine -- Version 6: Dial-Calling 


e Initialization Routine -=- Version 1: One-Time Initiali-= 
zation 


e Get-Buffer Routine -=- Version 1: Sequential 
e Error Routine <-- Version 2 
@ Read Routine 


@e Write Foutine 


DEFINING COMMON 


The following areas in Common will be referenced by both the SCA 
Module and the UAP. The user can determine their location and 
initial values by making changes to the distributed Common deck. 
The Common deck must be included during assembly of the SCA 
Module and of the UAP. The initial values of Common must be 
loaded before beginning execution of the SCA Module and the UAP. 


@ Communications Control Block -=- 18 characters beginning 
at 1000C 


For this example the CCB is defined at location 
~1000C in the Common deck. It is initialized to all 
zeros. | | . 


e System Mailbox <= 420 characters beginning at 0580C 


The System Mailbox is defined at location 0580C in 
the distributed Common deck. No changes need be 
made to the Common deck. -. 


e SCA‘'s Partition Status Byte -=- 1 character between 0560C 
and 0579C : 


Both the SCA Module and the sample UAP calculate the 
address of the SCA‘s PSB in their housekeeping 
routines. The UAP initializes it to N (normal) at 
execution time. No changes need be made to the 
Common deck. 


SCAM DIAL | 
‘SINGER RESTRICTED - ADVANCE COPY | 12/71 


DIAL-CALLING USER APPLICATION PROGRAM -=- EXAMPLE 


@ Transmit Buffers -- Two 100=-character areas, one begin- 
ning at location 1500C and one beginning at 1600C; 
Receive Buffers -- Two 102-character areas, one beginning 
at location 1700C and one beginning at 1900C | 


The Transmit and Receive Buffer definitions may be 
included in the WAP or added to the Common deck. 
The SCA Module saves them when it finds the 
Initialization Record in the System Mailbox. 


note: A 102-character Receive Buffer may contain up 

© 80 data characters, A 100-character Transmit 
Barece, may contain up to 80 data characters. See 
Transmit Buffer Length and Receive Buffer Length in 
Chapter 2. | | 


@ IDLE Message Buffer -- 44 blanks beginning at location 
1050C 


For this example the IDLE Message Buffer is located 
at location 1050C in the Common deck. It is initia- 
lized to all blanks. | 


@ Call Work Area -= 44 poeakrone peda at location 
1050C 


For this example the Call Work Area overlaps the 
IDLE Message Buffer at location 1050C,. 


INITIALIZATION 


The following information is moved to the System Mailbox by the 
UAP in order to initialize the SCA Module. The first five 
characters follow the standard conventions for use of the System 
Mailbox. The remaining information is the Initialization 


Record. 
System Mailbox = Number | 
ore Location or Bytes Contents Meaning 
580 1 R Mailbox busy. 
581-582 | 2 Cg Mailbox To- 


Address Field; 
Ip of SCA par- 
tition. . 
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System Mailbox Number — aa 
Core Location of Bytes Contents _ Meaning 


«583-584 — 2: nn Mailbox From- 


585-588 
589-592 
593 
594-601 

“602-605 
606-609 
610 


611-618 


619-622 — 


623-642 


643 


644 


hes 


1500 


4 1600 


8 unused 


4 1700 


8 : - unused 


0082 


20 unused 
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Address field; 
UAP partition 
number. 


Address in Common 
of first Trans- 
mit Buffer. 


Address in Common 
of second Transmit 
Buffer. 


End of list of 
Transmit Buffer 
addresses, 


Only two Transmit 
Buffers are being 


defined, 


Address in Common 
of first Receive 
Buffer. 


‘Address in Common 


of second Receive 
Buffer. 


End of list of 
Receive Buffer 
addresses, 


Only two Receive 


Buffers are being 


defined. 


Maximum number of 


characters to be 
read. (80 data 
characters plus 
one ETB or ETX 
plus one over- 
flow position. ) 


Area not used. 
for dial configu- 
rations. 


Length of this 
station's ID. 


Length of answer- 
ing stations’ IDs. 


12771. 
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System Mailbox Number | = 2 

ore Location of Bytes Contents _ Meaning 

645=650 | | 6 CALLER —«s*This:_ station's I 
: AM ID. 

651-655 __ 5 | ‘HELLO This station's 


WRU list. (The 
ID expected from 
the answering 
stations. ) 


656 1 Z «End of WRU list. 


STATUS 


The user application main program branches and links to the 
Status Subroutine | 


® In its read logic when it finds the Receive Buffer has 
not been filled by the SCA Module's Read Routine, and 


@ In its write logic when it finds that a Transmit 
Buffer that it has posted ready has not been transmitted 
by the SCA Module's Write Routine. | 


The UAP'’s Status Subroutine checks the Partition Status Byte 
(for a code other than N) and the Inhibit Switch (for a non-zero 
value) to see if the SCA Module has posted an error or status 
code. The Status Subroutine posts normal or restart status and 
then returns to the main program. 


oemal Status © 


The Status Subroutine posts. normal status when no codes have 
been posted in the Inhibit Switch or the PSB. The main program 
continues to wait for its Receive Buffer to be filled or its 
Transmit Buffer to be transmitted. 
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Restart Status 


The Status Subroutine posts restart status when an error has 
occurred or an EOT has been received. When the main program 
detects restart status, it looks for another CALLNO card in the 
card reader. When it finds another CALLNO card, it requests 
that the new phone number be dialed. 7 


PSB Errors 


Before the SCA Module posts an error in the PSB, it has tried 
eight times to perform the I/O instruction. PSB errors are 
considered temporary, because they can be retried. (See Read 
Errors and Write Errors under Partition Status Byte in Chapter 
2e) in this example the UAP does not allow the SCA Module to 
retry the operation, It requests that a DLE EOT be sent, it 
reports the PSB error on the workstation, and it posts restart 
status. | 


Inhibit Switch Errors and EOT 


The Dial-Calling SCA Module always returns to the Handshaking 
Routine after posting a non-zero code in the Inhibit Switch. 
The Inhibit Switch code may indicate a serious error or the 
receipt of an EOT. Inhibit Switch errors cannot be retried. 
The Status Subroutine reports the error or the EOT on the work 
station and posts restart status, | 


Error Codes 


In this example all errors are reported on the work station. A 
UAP may be designed to take special action depending on the type 
of error posted in the PSB or Inhibit Switch. See Section 7 of 
this document and Chapter 2 for the meaning of the codes that 
may be posted. | 
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Figure 4-1. Overview of Dial-Calling UAP Example _ 
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STATUS 
SUBROUTINE 


43 
PREPARE 
CALL WORK 
AREA 


31 
(BR & SW) 
E REPORT 
CALL STATUS ERROR 
PAGE 
A 
34 3 
WRITE “READ OR No 
WRITE? © 


2 
YES 
3 
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SWITCH 


PREPARE 


ERROR 
REPORT 


POST STATUS 
= NORMAL 


EP ES ID es GUN SENS Gao Gus EE a —e ee 


45 


CLEAR ALL 
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TRANSMIT 
BUFFERS 


—_ 
P~ 
t 
ip®) 
fem] 


RETURN 


PREPARE 
ERROR 
REPORT 


NO RESET 
INHSW=W INHIBIT 
? SWITCH 


3 


RESET TRANSMIT 
BUFFER 
AVAILABLE & 
RESTORE X3 


REQUEST EOT 
BE SENT 


36 


POST ALL 
RECEIVE 
BUFFERS 
AVAILABLE 


52 
READING OR 
WRITING? 


Cri et re ee 
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RCV 
BUFFER 
FULL? 


STATUS 
SUBROUTINE 


54 


REQUEST IN 
WRITE FLAG 
THAT DLE EOT 
BE SENT 


55 
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Figure 4-1. Overview of Dial-Calling UAP Example (continued) 
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Figure 4-2. Dial-Calling UAP Example (STEPS 1-4) 
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MAIN PROGRAM 
e START 
1 IS THE SCA MODULE ACTIVE? 


Is #ECB+6,7 = a valid partition number for the SCA? When the 
SCA Module begins execution it stores its partition number in 
relative locations 6 and 7 of the CCB (#ECB+6,7). The UAP 
examines these two positions to see if the SCA Module is loaded 
and executing. 


If YES, go to step 2. | 

If NO, branch and switch to this test to wait for the SCA 
Module to become active. A UAP might count the number 
of times the test has been made so that it can print an 
error message and terminate after some number. 


2 CALCULATE THE SCA's PARTITION STATUS BYTE ADDRESS AND SET IT TO N 


Add the SCA'‘'s partition number (@ECB+6,7) to 0560C to get the 
address of the SCA Module's Partition Status Byte for error 
checking. Move an N (normal) to the PSB, 


3 MAILBOX AVAILABLE? 


Mailbox Status Byte = A? | 

Is the System Mailbox available for use? An A in the status 
byte (relative position 0) indicates the System Mailbox is 
available. B,C, or X in the status byte indicates the System 
Mailbox is being used. If no other partitions are using the 
mailbox, this test can be omitted. 


If YES, go to step 4, | 

If NO, branch and switch to this test to wait for the 
Mailbox to become available. A UAP might count the 
number of times the test has been made so that it can 
print an error message and terminate after some number. 


4 MOVE THE INITIALIZATION RECORD TO THE SYSTEM MAILBOX 


Move the Initialization Record into the System Mailbox and post 
the Mailbox busy with information from the UAP partition for the 
SCA partition. The information moved to the System Mailbox is 
shown under Initialization in this section, 
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Figure 4-2. Dial-Calling UAP Example (STEPS 5-8) 
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5 INITIALIZATION ERROR? 


Inhibit Switch = E? 

Was there an error during initialization? 

The SCA Module posts an E in the Inhibit Switch (4ECB) if there 
is an error in the Initialization Record. 


If NO, go to step 8.. 
If YES, go to step 6. 


6 RESET MAILBOX STATUS 
Reset the Mailbox Status Byte to A. 

7 REPORT ERROR 
Print a message on the workstation indicating that the program 
is terminating due to an initialization error and then stop 
processing. | p= 

8 INITIALIZATION COMPLETE? 
Mailbox Status Byte = A? 
Has initialization been successfully compieteas 
After successful initialization the SCA Module posts the System 
Mailbox available (A in the Mailbox Status Byte). 


If NO, branch and switch to step 5. 
If YES, go to step 9. 
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Figure 4-2. Dial-Calling UAP Example (STEPS 9-14) 
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9 CARD READER READY? 


10 


11 


12 


13 


14 


Query the card reader to see if it is ready. 


If YES, go to step 11. 
If NO, go to step 10. 


REPORT NO CARDS 


Print a message on the workstation indicating that the program 
is waiting for cards. Return to step 9 to see if the card 
reader has been readied. The sample UAP prints this message 
only once each time it enters the loop between steps 9 and 10. 
It uses a switch to make sure that the message is printed only 
once. 


READ A CARD 
Read a card. The UAP is looking for a CALLNO card. 
END OF DATA? 


Did the attempt to read data (step 11) result in an end of file 
condition? 3 = 


If YES, go to step 9. 
If NO, go to step 13. 


CALL NUMBER? 


Was the card just read at step 11 a correctly formatted CALLNO 
card? See Card Input in this section for the format of the 
CALLNO cards expected by this sample UAP. 


If YES, go to step 15. 
If NO, go to step 14, 


REPORT NO CALLNO CARD 


Print a message on the console indicating that the UAP just read 
a data card or an incorrect CALLNO card when it is expecting a 
CALLNO card. 


Return to step 11 to read another card. The program will loop 
through steps 11-14 until a correct CALLNO card or ae unite- 
separator card is read. If it empties the card reader without 
finding a correct CALLNO card or a unit separator, it will wait 
at step 11 for the card reader to be readied. 


The sample program uses a switch to insure that this message is 
printed only once each time the loop is entered. 
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Figure 4-2. Dial-Calling UAP Example (STEPS 15-20) 
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15 SAVE FUNCTION CODE (W OR R) 


The UAP has just read a CALLNO card. Column 7 of the card 
contains a function code, Wor R, to indicate if this station is 
to write and then read or just read data. This step saves the 
function code in a work area in the UAP so that it can be tested 
by step 34. 


16 READ OR WRITE? 


Function code = R or W? 

Is this station to read data only or write and then read data? 
The function code can be tested in the card input area or in the 
UAP work area to which it has been moved (step 15). 


If this station is to read only, go to step 29. 
If it is to write data first, go to step 17. 


17. TURN ON FIRST-WRITE SWITCH 


Turn on a switch in the UAP. The switch will be tested by steps 
23 and 27. When it is on, it indicates that the UAP is 
preparing the first data block to be transmitted but the phone 
number has not yet been dialed. 


18 DATA TRANSMITTED OK? 


Buffer Status Byte = A? Has the buffer been successfully 
transmitted? xX3 points to the correct Transmit Buffer. (See 
step 26.) 


If YES, go to step 21. 

If NO, then the buffer has been readied by the UAP, but it 
has not yet been successfully transmitted by the SCA 
Module. Go to step 19. 


19 STATUS SUBROUTINE 


Branch and link to the Status Subroutine. 
20 STATUS 


Test the status posted by the Status Subroutine. 


Status = normal means that the Write Routine is still trying 
to transmit the data block. Branch and switch to _ step 
18, 

Status = restart means that a serious error has occurred and 
control has returned to the Bang enereng Routine. Go to 
step 9. 
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Figure 4-2. Dial-Calling UAP Example (STEPS 21-28) 
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21 READ A CARD 
Read a data card. 
22 END OF DATA? 


Did the attempt to read data (step 21) result in an end of file 
condition? 


If YES, then there is no more data to transmit. Go to step 
23. 
If NO, go to step 25. 


23 FIRST WRITE? 
Is the UAP first-write switch on? (See step 17.) 


If YES, go to step 24, | 

If NO, then the unit-separator card just read at step 22 
represents a normal end-of-file for this transmission. 
Go to step 35. 


24 REPORT NO DATA 


There has been an error in the card input sequence. A CALLNO 
card with a function code W (write first) was followed 
immediately by a unit-separator card instead of data. Report 
the error. Go to step 9 to look for the next CALLNO card. 


25 PREPARE A TRANSMIT BUFFER 


Move data (read at step 21) to the Data Field of the Transmit 
Buffer. Move the data length to the buffer's Data Length field. 
Move a D (ready) to the Buffer Status Byte. X3 points to the 
correct Transmit Buffer (See step 26.) 


26 MOVE NEXT TRANSMIT BUFFER ADDRESS TO X3 


Exchange the Transmit Buffer address work area and X3. Steps 
18, 25, 35 and 54 use index register 3 (X3) to address fields in 
the correct Transmit Buffer. When the UAP is loaded, the 
address of the first Transmit Buffer is already in X3; _ the 
address of the second Transmit Buffer is in a work area in the 
UAP. The two addresses are exchanged after a Transmit Buffer 
has been filled. 


27 FIRST WRITE? 
Is the UAP first-ewrite switch on? 
If NO, then the phone number for this transmission has 
already been dialed. Go to step 18. 
If YES, then the phone number has not yet been dialed. Go 
to step 28, 
28 TURN OFF FIRST-WRITE SWITCH 


Turn off the UAP first-write switch. Go to step 29 to request 
that the phone number be dialed. 
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Figure 4-2. Dial-Calling UAP Example (STEPS 29-33) 
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29 PREPARE CALL WORK AREA 


Move the phone number length from the CALLNO card to the Length 
Field (relative locations 18 and 19) of the Call Work Area. 
Move the phone number to the Call Work Area beginning in 
relative location 20. Move a D (ready) to the status byte 
(relative location 0). | | 


30 CALL STATUS 


Test the Call Work Area Status Byte to see the status of the SCA 
Module's attempt to dial the phone number. 


Status byte = A means the phone numner has been successfully 
dialed. Go to step 34, Note: If there is an error in 
handshaking or in the exchange of IDs after the call is 
placed, the error will be detected by the UAP when it 
enters its Status Subroutine at step 19 or 38. 

Status Byte = E means there was an error in the attempt to 
dial. Go to step 31. | 

Status Byte = D means that the SCA Module is still trying to 
place the call. Branch and switch to this step to wait 
for the SCA Module to complete the attempt. 


Note: Program logic errors can easily cause the UAP to 
stay in this loop. (The status byte remains D because 
the SCA Module is not dialing; it is waiting for some 
other action by the UAP.) To help in identifying program 
logic errors, the UAP can branch and switch to the 
Status Subroutine before returning to this test. The 
Status Routine will print diagnostic information that 
will help the user to debug his program. 


31 REPORT. ERROR 


Print a message on the workstation indicating that there was an 
error in dialing. 


32 WRITING? | 
Activity Switch (#ECB+3) = D? Is this station writing data? 


If YES, go to step 33. 
If NO, go to step 9, 


33 RESET TRANSMIT BUFFER AVAILABLE AND RESTORE X3 


Because of the dial error, the Transmit Buffer prepared at step 
25 will not be sent. Reset the buffer available. Step 26 
updated X3 after the first Transmit Buffer was prepared. 
Perform the operation described by step 26 again s0 that next 
time the UAP is preparing to transmit data it will use the same 
Transmit neers 
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Figure 4-2. Dial-Calling UAP Example (STEPS 34-39) 
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34 READ OR WRITE? 


The call has been successfully made and ID checking (if 
performed) was successful. Test the function code from the 
CALLNO card to see if the station is to write before reading or 
read only. The function code was saved in a work area in the 
UAP by step 15. 


If this station is to read only, go to step 35. 
If it is to write first, go to step 18. 


35 REQUEST THAT AN EOT BE SENT 


The Dial Calling SCA Module expects to write data and an EOT or 
just an EOT before reading data. To request that an EOT be 
sent, move a Q (EOT request) to the Write Flag and a D (ready) 
to the status byte of the next Transmit Buffer. X3 points to 
the correct Transmit Buffer. (See step 26.) 


36 POST ALL RECEIVE BUFFERS AVAILABLE 


Move an A (available) to the status byte of both Receive 
Buffers. 


37 RECEIVE BUFFER FULL? 


Buffer Status Byte = E? Has the Receive Buffer been filled with 
data? The Read Routine posts an E in the Buffer Status Byte 
when the buffer has been filled. X1 points to the correct 
Receive Buffer. (See step 42). 


If NO, go to step 38. 
If YES, go to step 40. 


38 STATUS SUBROUTINE 
Branch and link to the Status Subroutine. ) 


39 STATUS 
Test the status posted by the Status Subroutine 


Status = normal means the SCA Module is still trying to read 
the data block. Branch and switch to step 37. 

Status = restart means an error has occurred or an EOT has 
been received and the line has been disconnected. Go to 
step 9 to look for the next CALLNO card. 
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40 PROCESS DATA BLOCK 


Process the data block just received. X1 points to the correct 
Receive Buffer (See step 42.) The Data Length field (relative 
locations 5-8) of the Receive Buffer Prefix contains the number 
of data characters received. The sample UAP prints the data on 
the line printer. | | 


41 POST RECEIVE BUFFER AVAILABLE 


Post an A (available) in the Buffer Status Byte (relative 
position 0) of the Receive Buffer. X1 points to the correct 
Receive Buffer, 


42 MOVE NEXT RECEIVE BUFFER ADDRESS TO X1 


Exchange the Receive Buffer address work area and X1. Steps 37, — 
40 and 41 use index register 1 (X1) to address fields in the 
correct Receive Buffer. When the UAP is loaded, the address of 
the first Receive Buffer is already in X1; the address of the 
second Receive Buffer is in a work area in the UAP. The two 
addresses are exchanged by this step after a Receive Buffer has 
been posted available. Return to step 37. 
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Figure 4-2. Dial-Calling UAP Example (STEPS 43-48) 
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STATUS SUBROUTINE 


43 INHIBIT SWITCH SET? 


Inhibit Switch = some code other than zero? Has the SCA Module 
posted an error or EOT code in the Inhibit Switch? 


If YES, go to step 4&4, 
If NO, go to step 49, 


44 PREPARE ERROR REPORT 


Save the Inhibit Switch setting and the PSB setting so that they 
can be printed at step 57. They are not printed at this step,. 
because a timéout tay occur if the UAP delays in resetting the 
Inhibit Switch if it was X or W. 


45 CLEAR ALL UNTRANSMITTED TRANSMIT BUFFERS 


Test the status bytes of both Transmit Buffers. If the status 
Byte is other than A (available), then the buffer contains data 
or a control character request prepared by the UAP for this 
transmission but not transmitted by the SCA Module. 


If there is an untransmitted Transmit Buffer, save the contents 
of the buffer so it can be printed at step 57. Move a zero to 
the untransmitted buffer's Write Flag and reset its status byte 
to A so that the buffer will be ready for use the next time the 
UAP has data to transmit. The printout will be a record of data 
that was “lost" (not transmitted). 


46 INHIBIT SWITCH = W? 
Has an EOT just been received by the SCA Module's Read Routine? 


If YES, then the UAP must request that the line be 
disconnected. Go to step 48, 

If NO, then the Inhibit Switch setting indicates an error 
and the line has already been disconnected or it 
indicates that an EOT was received by the Handshaking 
Routine and the line will be disconnected when the UAP 
resets the Inhibit Switch. Go to step 47. 


47 RESET INHIBIT SWITCH 
Reset the Inhibit Switch to zero. Go to step 56. 
48 SET OPERATION CODE TO E AND RESET THE INHIBIT SWITCH 


Move an E (disconnect request) to the Operation Code (#ECB+2) 
and a O to the Inhibit Switch. Go to step 56. 
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Figure 4-2, Dial-Calling UAP Example (STEPS 49-58) 
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49 PARTITION STATUS BYTE SET? 


PSB = some character other than N? Has The SCA Module posted an 
error code in the PSB? 


If NO, go to step 50. 
If YES, go to step 51. 


50 POST STATUS = NORMAL 
Return to the main program with normal status posted. 
51 PREPARE ERROR REPORT 


Save the PSB code and the Inhibit Switch code (zero) so that 
they can be printed at step 57. 


52 READING OR WRITING 


Test the Activity Switch ( #ECB+3) to see if this station is 
reading or writing data. 


If reading (Activity Switch = A), go to step 55. 
If writing (Activity Switch = D), go to step 53. 


53 ##CLEAR ALL UNTRANSMITTED TRANSMIT BUFFERS 
Test the status bytes of both Transmit Buffers. If there is an 
untransmitted Transmit Buffer (status byte = other than A), 
perform the operations described under step 45. 

54 REQUEST IN THE WRITE FLAG THAT A DLE EOT BE SENT 
Move a D (DLE EOT request) to the Write Flag of the next 
Transmit Buffer and post the buffer available. X3 points to the 
correct Transmit Buffer. (See step 26.) Go to step 56. 

55 REQUEST IN THE READ FLAG THAT A DLE EOT BE SENT 
Move a 2 (DLE EOT request) to the Read Flag in the CCB (tECB+1). 

56 RESET PARTITION STATUS BYTE 
Reset the PSB to N (normal). 

57 PRINT ERROR REPORT 
Print the Inhibit Switch Code and the PSB code saved at step 44 
or 51. Clear the error code work areas in which the codes were 
saved. Print any untransmitted Transmit Buffers that were saved 
at step 45 or 53 and clear those work areas. 7 


58 POST STATUS = RESTART 


Return to the main program with restart status posted. 
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INTRODUCTION 


This section is a step-by-step description of the operations to 
be performed by a user application program (UAP) that is to 
function with a Dial-Answering SCA Module. 


PROGRAM STRUCTURE 
In this section the functions of an answering WAP have been 
Givided into five general categories: 
e Housekeeping 
& Initialization 
e Read Data 
® Write Data 


@ Check Status 


The following diagram shows the relationship of these functional 
categories. 


| HOUSEKEEPING | 


eat INITIALIZATION f= 


CHECK 
STATUS 
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Housekeeping is performed once only, immediately after the 
program is loaded. Initialization is performed after 
housekeeping. If Version 2 of the Initialization Routine was 
chosen, the WAP may reinitialize before writing data and when 
the line has been disconnected. If Version 3 of the 
Initialization Routine was chosen, the UAP must reinitialize 
before writing data and when the line has been been 
disconnected. The WAP enters its Read Data loqic whenever it is 
waiting for a call to come in and after sending an FOT to the 
calling station. The UAP writes data after it has read data and 
an FOT or just an FOYT from the calling station. It checks 
status when it is waiting for the SCA Module to transmit or 
receive data. | 


The UAP waits for a call to come in by entering its read data 
logic. The receipt of data or an FOT is the UWAP's first 
indication that a call has come in. A dial-answering UAP must 
include Read Data steps 1 and 2, and a Nial-Answering SCA Module 
must contain a Read Routine and at least one Receive Buffer, 
even for an application in which the answering station never 
actually receives data from the calling station. However, for 
an application in which the answering station never sends data 
to the calling station, the Dial-Answering SCA Module need not 
contain a Write Routine. The answering UWAP can send an FE0T 
instead of data by coding Write Data step la. (Write Routine in 
Section 7 describes programming considerations for a Dial- 
Answering SCA Module assembled without a Write Routine.) 


HOUSEKEEPING 


1. Determine that the SCA Module has been loaded and is active. 


Test #FCB+6,7 for a valid SCA partition number. If the SCA 
Module has not been loaded within some time frame (e.q., 10 
cycles throuqh the machine), it is advisable to print an 
error message and terminate. | 


2. Initialize the SCA Module’s PSB to N (normal). 


3. Load initial values into other areas of Common if this was 
not done by defining constants into them at assembly time. 


4. Perform any application-determined housekeeping procedures 
such as initializing work areas, opening files, etc. 


In the sample program it is assumed that the SCA‘s partition 
number is variable. If the SCA's partition number is constant 
and known at assembly time, then sample program step 1 can test 
for a specific partition number in ‘¢ECB+6,7. Sample program 
sten 3 can be eliminated because the correct PSR can be 
initialized to N at assembly time. 
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INITIALIZATION 


1. 


2. 


wait for the System Mailbox to become available. Test the 
Mailbox Status Byte for an A (available). If it is not an 


A, branch and switch to this test (wait). If it is an A, 


continue, 


If no other partitions are using the Mailbox, the constant A 
should be defined into the Mailbox Status Byte at assembly 
time or this step should be omitted. 


Move the Initialization Record to the Mailbox, post the 
Mailbox busy, and address it to the SCA partition. 


a. Move aB to the Mailbox Status Byte. 


b. Move a CO (alpha 0) to the To-Address field of the 
Mailbox. 


c. Move the UAP's partition number or ID to the From- 
Address field of the mailbox. 


ad. Move the Initialization Record to the Mailbox. 
Normally all or most of the Initialization Record 
can be defined as a constant in the UAP source deck. 
However, for some applications it may be necessary 
for the UAP to perform some workstation or other I/0 
to get information to complete the Initialization 
Record. | 


Reset the Inhibit Switch to zero. (This step is optional if 
this is the first or only initialization and the Inhibit 
Switch was initialized to zero at assembly time or at 


Housekeeping step 3.) 


Analyze the result of the attempt to initialize the SCA 
Module. 


a. Test for an initialization error. (Test the Inhibit 
Switch for an F.) If there has not been an 
initialization error, continue to step 4b. 


Normally an initialization error will require 
analysis and perhaps reassembly. Therefore the UAP 
should print an error message requesting a memory 
dump, reset the Mailbox Status Byte to A. 
(available), and terminate. | 


The SCA Module does not reset the System Mailbox to 
A after posting an initialization error. This 
allows the WAP to print the invalid Initialization 
Record in the Mailbox before allowing other 
partitions to use .the mailbox. Note that the SCA 
Module may have destroyed part of the contents of 
the Mailbox while trying to process’ the 
Initialization Record. : 
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INITIALIZATION, Step 4 


b. Test to see if initialization has been successfully 
completed. | 


After successful initialization the SCA Module moves 
the UAP's partition number (the From-Address field 
of the System Mailbox) to the Partition that Last 
Initialized field ( #FCB+4,5) of the CCB and posts 
the System Mailbox available. The UAP can test 
either or both of these fields to see if 
initialization has been successfully completed. | 


If Initialization has not been successfully 
completed, return (branch and switch) to step 4a, 
If initialization has been successfully completed, 
continue. 


Note: the UAP loops through step 4 until initialization has 
been completed. The UAP should not wait indefinitely for 
the SCA Module to process the Initialization Record. If 
after some period (e.q., ten cycles), the SCA Module still 
has not processed the Initialization Record, the UAP should 
print an error message, free the Mailbox, and perhaps take a 
memory dump. It is likely that the SCA partition has not | 

been loaded properly. The user's first attempt to correct 
the problem should be to reload the SCA partition and try 
again. If this fails, further aaa analysis is required. 


READ DATA 


The receipt of data or an FOT is the answering UAP's first 
indication that a call has come in. The UWAP enters its Read 
Data logic when it is waiting for a call to come in and after I€ 
has performed its write Nata logic when it is waiting for more 
data from the same ‘station. 


1. Post all Receive Buffers available. Move an A to the status 
byte of all Receive Buffers. 


2. Test a buffer to see if it has been filled with data by the 
Read Routine, The version of the Get-Buffer Routine 
selected will determine which buffer to test. If Version 2 
or 3 was selected, the UAP may test more than one buffer, 
(See Sequential Buffers in Section 7.) 


a. If data has not been received (Buffer Status Byte = 
A), check the status of. the SCA Module. It is 
possible that a serious error has occurred or an EOT 
or DLE FOT has been received. The tests for these 
conditions and the actions the UAP should take are 
discussed under Check Status below. 
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5. 


If data has not been received and the status is 
normal (no serious error, no FOT, no DLE FOT), then 
the SCA Module must still be trying to read a data 
block. Branch and switch to the beginning of step 2 
to wait for the SCA Module to complete its read. 


If an FOT has been received (Inhibit Switch = X or 
w), the Check Status logic branches to Write Data. 


If a DLE £f0T has been received or a serious error 
has occurred (Inhibit Switch = other than X, W, or 
0), the SCA Module has disconnected the line. The 
Check Status logic branches to Initialization or 
Read Data. 


If data has been received (Buffer Status Byte = E), 
process it. Processing usually means outputting the 
data area of the buffer to the line printer or some 
storage device. Relative locations 5-8 of the 
buffer prefix will contain the number of data 
characters received. Processing may mean examining 
the data in the buffer and making decisions based on 
the contents. If header records are expected, 
examine relative location 15 of the buffer to see if 
the data block is preceded by an SOH instead of the. 
standard STX. If data blocks terminated by an ETX 
are expected, examine relative location N of the 
buffer (N «# 20 plus the data length) to see if the 
data block is terminated by an ETX instead of the 
standard ETB, 7 


If the Receive Buffer Status Byte does not contain 


an E (full), it should contain an A (available) or 


V; (being filled by the Read Routine). If it does 
not contain any of these values (if it has heen 
overlaid by another partition or by a program 
error), the Read Routine will be waiting for the 
buffer to be posted available and will be sending 
WACKs., The UAP will loop between step 3 and Check 
Status indefinitely or until the calling station 
gives up. To detect such errors, the UAP can test 
for an A or V in the status byte if it does not find 
an E. 


Post the Receive Buffer available. Move an A to the status 
byte of the buffer just processed, 


If more than one Receive Buffer is being used, the UAP must 
have some pointer (perhaps an index register) to point to 
the correct Receive Buffer. (See Sequential Buffers in 
Section 7.) Update the Renee to point to the next Receive | 
Buffer. 


Return to step 2. 
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WRITE DATA 


The answering station transmits data and an FOT or just an EFOT 
after it has received an FOT from the calling station. 


The application will determine how many files (if any) the 
answering station has to send, or the WAP may perform some 
workstation or other I/0 to determine if there is data to send. 


Tf the answering station has more than one logical file to 
transmit, the files may be sent separately (each terminated by 
an EOT) or they may be sent together as a single transmission, 
If they are sent as a single transmission, header records 
(preceded by an SOH; see step 4d) may be used to identify them 
or some user-defined code in the records may identify them. 


Note: If the Dial-Answering SCA Module was assembled without a 
Write Routine or if the calling station is a System Ten with a 
Dial-Calling SCA Module assembled without a Read Routine, step 1 
is the only Write Data step that can be executed. 


1. If there is no data to send, the UAP can request that an EOT 
be sent so that the calling station has the option to send 
more data, or the UAP can request that a DLE EOT be sent and 
the line be disconnected. 


a. To send an EOT, reset the Inhibit Switch to zero 
without posting af) (write request) in the Oneration 
Code. The SCA Module will send an FOT and read a 
response from the calling station. 


The calling station may respond with an FNOQ and data 
or an FOT (no data to send) or it may disconnect the 
line or send an invalid response which causes the 
answering SCA Module to disconnect the line. 


If Version 1 of the Initialization Routine was 
selected, the UAP can go to Read Pata without 
waiting to see how the calling station responded. 
Any response other than data will be detected when 
the Read Data logic checks status. 


If the UAP is to reinitialize when the line has been 
disconnected or if for some application-determined 
reason the UWAP needs to know if the line has been 
disconnected, wait for the SCA Module to post a non- 
aoe 7 in the Inhibit Switch or the Activity 
Switch. ? 


If the SCA Module posts an A in the Activity Switch, 
then the calling station is sending data. Go to 
Read Data. 


Tf the SCA Module posts an X in the Inhibit Switch, 
then the calling station sent an FOT instead of 
data. Go to Write Data . 
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be. 


If the SCA Module posts any other code in the 
Inhibit Switch, then the line has been disconnected. 
Print an error message, Go to Initialization if 
reinitialization is required. Otherwise clear the 
Inhibit Switch and go to Read Data. 


To send a DLE EOT and disconnect the line, move an E 

(disconnect request) to the Operation Code. Go to 

Initialization if reinitialization is required. 
erwise go to Read Data. 


2. To start the SCA Module transmitting data, the UAP must 
perform the following steps: | 


Ae 


Test the Transmit Buffer Status Bytes. All of them 
should contain As. (They should be initialized to A 
at assembly time or at Housekeeping step 3.) If a 
Transmit Buffer Status Byte contains some other 
character, then the buffer contains data or a 
control character request that was prepared but not 
transmitted the last time the station was called. 
The application will determine what the UAP should 
do with these buffers. 


One possibility is to print or save the contents of 
the buffers and then clear the buffers by resetting 
all write Flags to zero and moving an A (available) 
to the status bytes of all buffers. By posting the 
buffers available, the UAP allows the contents of 
the buffers to be destroyed at step 4. Continue to 
step 2b. | 


Another possibility is to continue the transmission 
from where it was left. Reset to A any Transmit 
Buffer Status Byte that is other than A or D and 
continue to step 2b. The WAP must somehow insure 
that it is now communicating with the station that 
was originally intended to receive the data, 


Move a Dp (write request) to the Operation Code in 
the CCB. 


If reinitialization is reouired, perform 
Initialization. 


Reset the Inhibit Switch to zero. (This step is 

unnecessary if the VAP has just reinitialized at 
step 2c. The Initialization logic resets the 
Inhibit Switch.) 7 7 
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3. Test the status byte of the next Transmit Buffer. The 
version of the Get-Buffer Routine selected will determine 
which buffer to test. If Version 2 or 3 was selected, the 
VAP may test more than one buffer. (See Sequential Buffers 
in Section 7.) .. 


a. If the Transmit Buffer Status Byte = A (available), 
go to step 4, 


b. If the Transmit Buffer Status Byte is not A, check 
the status of the SCA Module. It is possible that a 
serious error has occurred or a special control 
character has been received. The test for these 
conditions and the action the UAP should take are 
discussed under Check Status below. 


If the buffer has not been transmitted, but the 
status is normal (no serious error, no _ special 
control character), then the SCA Module must still 
be trying to transmit the data block. Branch and 
switch to the beginning of step 3 to wait for the 
SCA Module to complete the transmission or for the 
status to change. 


If a serious error has occurrred, the Check Status 
logic returns to Read Nata to wait for a new call to 
come in. 


c. If the Transmit Buffer Status Byte does not contain 
an A (available), it should contain aD (ready to be 
transmitted), an EF (error), or a V (being 
transmitted). If it does not contain any of these 
values (if it has been overlaid by another partition 
or by a program error), the Write Routine will be 
waiting for the buffer to be vosted ready and will 
be sending ENOs and IDLE Messages. The WAP will 
loop between step 3 and Check Status until the SCA 
Module posts an R in the Inhibit Switch. To detect 
such errors, the UAP can test the status byte for a 
D, F, or V if it does not find an A. 


4. If the Transmit Buffer Status Byte = A (available), prepare 
the buffer with data to be transmitted. (The buffer is 
available when the Write Data logic has just been entered or 
reentered or when the buffer has just been successfully 
transmitted.) 


a. If there is no more data to transmit, go to step 6, 
b. Move data to the Nata field of the Transmit Buffer. 
c. Move the data leneth to the buffer's Nata Length. 

field. This stern may be omitted if the correct 


length has already been moved there; the SCA Module 
does not alter the field. 


SCAM DIAL 
SINGER RESTRICTED - ADVANCE COPY _ 12/71 


DESIGN OF A DIAL~ANSWERING USER APPLICATION PROGRAM 


WRITE DATA, Step 4 


5<9 


6. 


ad. Move the appropriate code to the Write Flag of the 
buffer if this buffer is to be preceded by an SOH 
(Start of Header) or if it is to be terminated by an 
ETX (End of Text) for some application-determined 
reason. 


e. Move aD (ready) to the Buffer Status Byte. 


If more than one Transmit Buffer is being used, the UAP must 
have some pointer (perhaps an index register) to point to 
the correct Transmit Buffer. Update the pointer to point to 
the next Transmit Buffer. (See Sequential Buffers in 
Section 7.) Return to step 3. | 


When there is no more data to send, request that an FOT be 
sent: 


a. Move aO (send EOT request) to the Write Flag of the 
next Transmit Buffer. 


b. Move aD (ready) to the Buffer Status Byte. 


The SCA Module will send an FOT and read a response from the 
calling station. The calling station may respond with an 
ENQ and data or an EOT (no data to send) or it may 
Gisconnect the line or send an invalid response which causes 
the answering SCA Module to disconnect the line. 


If Version 1 of the Initialization Routine was selected, the 
UAP can go to Read Data without waiting to see how the 
calling station responded. Any response other than data 
will be detected when the Read Nata logic checks status, 


If the UAP is to reinitialize when the line has been 
disconnected or if for some application-determined reason 
the UAP needs to know if the line has been disconnected, 
wait for the SCA Module to post a non-zero code in the 
Inhibit Switch or the Activity switch, _ 


If the SCA Module posts an A in the Activity Switch, then 
the calling station is sending data. Go to Read Data. 


If the SCA Module posts an X in the Inhibit Switch, then the 
calling station sent an EOT instead of data. Return to 
Write Data step 1. 


If the SCA Module posts any other code in the Inhibit 
Switch, then the line has been disconnected. Print an error 
message. Go to Initialization if reinitialization is 
required. Otherwise clear the Inhibit Switch and go to Read 
Data. 
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Note: If there are two or more Transmit Buffers, an error in 
the transmission of one of the last data buffers might cause 
the SCA Module or the UAP's status checking routine (which 
will be entered when the UAP returns to Read Data) to send a 
DLE EOT. The SCA Module would not detect the send FOT 
request just posted in the Write Flag until the next time 
this station is called. This problem is avoided by clearing 
the Write Flag to zero (at step 2a) before preparing any 
Transmit Buffers for transmission. 


CHECK STATUS 


5-10 


The UAP should check the status of the SCA Module whenever it is 
waiting for the SCA Module to complete some I/O operation. The 
purpose of status checking is to detect errors and the 
occurrence of unusual conditions during the transmission or 
receipt of data or during handshaking or ID exchange. 


1. Test for a non-zero code in the Inhibit Switch. If the 
Inhibit Switch is zero, go to step 4. 


2. If the Inhibit Switch setting is X or W (EOT received), go 
to step 3. If it is other than X or W, then it represents 
an error. After posting an error code in the Inhibit Switch 
the SCA Module disconnects the line and waits for another 
call. 


Ae The UAP may take special action depending on the 
type of code posted. However, for most applications 
it will be possible to treat all codes the same, 


b. Print an error message. The error message should 
show the Inhibit Switch setting and the PSB setting. 


c. Reset the Inhibit Switch to zero. Reset the 
Partition Status Byte to N in case it was also set. 


Note: If the UAP is going to reinitialize before 
placing the next call, do not reset the Inhibit 
Switch. It will be reset at Initialization step 3. 


ad. If the station has been transmitting data, there may 
be untransmitted data and unsatisfied control 
character requests in the Transmit Buffers after the 
error has been posted. The application will 
determine what the UAP should do with these buffers. 
They can be handled at this step or after the 
Station has been called again. Write Data step 2a 
discusses methods of handling them. 


e. Return to Read Pata to wait for another call to come 
in. 
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3. 


If the Inhibit Switch setting is X, then the calling station 
has no data to send. (It sent an FOT instead of data.) If 
the Inhibit Switch setting is W, then an EOT (normal end of 
transmission character) was received while reading. In 
either case, go to Write Data to see if this station has 
data to send. 


If there is no Inhibit Switch setting, test for an error 
code (any code other than N) in the Partition Status Byte 
(PSB). 


a. If the PSB is set to N, then the status is normal. 
Return to Read Data step 2 or Write Data step 3. to 
see if the SCK Module has completed the operation 
the UAP is waiting for. 


b. If there is a PSB code other than N, the UAP may 
take special action depending on the code set. All 
of the PSB codes indicate errors except N, T (TI 
received), and possibly S (WACKs received). The 
application will determine the action to be taken. 


c. Before the SCA Module posts an error in the PSB, it 
has tried eight times to perform the I/O operation. 
The UAP can allow the SCA Module to continue to try 
to perform the operation or it can request that the 
line be disconnected. To request that the line be 
disconnected, go to step 4d. | 


To request that the operation be retried when this 
station is transmitting data (Activity Switch = D), 
move a PD to the Transmit Buffer Status Byte. (The 
SCA Module posts an E in the status byte after a 
transmission error.) 


If the answering station is receiving data (Activity 
Switch = A) the operation will automatically be 
retried until it is successful or until the UAP 
posts a control charater request in the Read Flag in 
the CCB, 


“Add one to a counter so that the UAP can “give up" 
after some number of PSB errors. 


Print an error message and the PSB code. 
Reset the PSB to N. 


Return to the Read Data step 2 or Write Data step 3 
to wait for the operation to be retr ° 
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d. If the UAP does not want the operation to be 
retried, or if it has been counting PSB errors and 
is ready to “give up", it should request that a DLE 
EOT be sent so that the line will be disconnected. 


If the station is reading data (Activity Switch = | 
A), move a 2 (send DLE FOT) to the Read Flaq in the 
CCB. If the station is writing data (Activity 
Switch = D), move a PD (send DLE FOT) to the Write 
Flag in the buffer prefix and aD (ready) to the 
Buffer Status Byte. If the SCA Module has” returned 
to its Handshaking Routine (Activity Switch = 0), 
there is no need to send a DLE FOT. 


Print an error message and the PSB code. 
Reset the PSB to N. 


See step 2d and Write Nata steps 2a and 6 for a 
discussion of the problem of untransmitted Transmit 
Buffers. | | | 


e. If Version 2 of the f[nitialization Routine was 
selected and the UAP is going to reinitialize before 
receiving a new call, move a numeric code to the 

Inhibit Switch. The code will be reset at 
Initialization step 3. : 


f. ff reinitialization is necessary, qo to 
Initialization. Otherwise go to Read Data to wait 
or a new ca to come in. 
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INTRODUCTION 


The sample user application program (UAP) presented in this 
section may be run with an SCA Module designed for the answering 
station of a switched network. 


The logic of the sample UAP is shown in an overview flowchart in 
figure 6-1. The same flowchart is broken into segments in 
figure 6-2 and is explained in the narrative accompanying the 
figure. A listing of the program appears in Appendix B. 


SUMMARY OF FUNCTIONS 


The sample UAP expects to receive calls from one station only. 
It expects the calling station to send the ID “CALLER” 
immediately after dialing. The SCA Module will then send this 
station's ID, "HELL@". It expects to receive a data file 
followed by an EOT from the calling station and then to transmit 
a data file followed by an EOT. It prints the data it receives. 
It gets from cards data to transmit. If either station has 
nothing to send, it can simply send an E@T. 


When this station has sent an E@T or has detected an error, the 

UAP returns to the beginning of its read logic, and waits for a 

data block or an E@T from the other station. If the line has 
been disconnected, a new call must come in before the UAP will 

find that a data block or an E@T has been received. When a new 

call comes in, the SCA Module automatically performs handshaking 

and exchanges IDs <-=- no special UAP action is required. In this 

example the UAP doesn't care if a new call has come in or if it 

is continuing transmission via a previous connection. 


SELECTION OF SCAM ROUTINES 


This UAP was designed to run with an SCA Module made up of the 
following routines: 


@ Handshaking Routine -- Version 5: Dial-Anawering 


e Initialization Routine -- Version 1: One-Time 
Initialization 


e Get-Buf fer Routine -< Version 1: Sequential 
e Error Routine -= Version 2 

@ Read Routine. 

® Write Routine 
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The following areas in Common will be referenced by both the SCA 
Module and the UAP. The user can determine their location and 
initial values by making changes to the distributed Common deck. 
The Common deck must be included during assembly of the SCA 
Module and of the UAP. The initial values of Common must be 
loaded before beginning execution of the SCA Module and the UAP, 


@® Communications Control Block -=- 18 bytes beginning at 
1000C | - 


For this example the CCB is defined at location 1000C 
in the Common deck. It is initialized to all zeros. 


@ System Mailbox -- 420 bytes beginning at 0580C 


The System Mailbox is automatically located at 0580C 
in the Common deck. In this example the Mailbox 
Status Byte (location 0580C) is initialized to A 
(available). (In this example the SCA Module and its 
UAP are the only programs in core that use the System 
Mailbox.) 


® SCA's Partition Status Byte -=- 1 byte between 0560C and 
0579C | 


Both the SCA Module and the sample UAP calculate the 
address of the SCA‘'s PSB in their housekeeping 

routines. The UAP initializes it to N (normal) at 
execution time. No changes need be made to the 
Common deck. | 


@ Transmit Buffer -= 100 bytes beginning at location 1500C 
and Receive Buffer -- 102 bytes peetanree at location 
1600C 


The Transmit and Receive Buffer definitions may be 
included in the UAP or added to the Common deck. The 
SCA Module defines them when it reads the 
Initialization Record. 


Note: A 102-character Receive Buffer may contain up to 
ata characters. A 100-character Transmit Buffer may 
contain up to 80 data characters. See 


Transmit Buffer Length and Receive Buffer Length in 
Chapter 2. | 


@ IDLE Message Buffer == 44 bianke peoenn eee at location 
1018C 


For this example the IDLE Message Buffer is located 
at location 1018C in the Common deck. . te is 
initialized to all blanks. | 
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INITIALIZATION 


| 


The following information is moved to the System Mailbox by the 


UAP in order to initialize 


the SCA Module. The first five 


characters follow the standard conventions for use of the System 
The remaining information is the Initialization 


Mailbox, 
Record. 
System Mailbox Number 
Core Location of Bytes Contents 
580 1 | B 
581 — 582 2 Cg 
583 = 584 2 nn 
585 = 588 4 1500 
589 1 Z 
590 = 601 12 unused 
602 = 605 4 1600 
606 1 Z 
607 = 618 12 unused 
619 = 622 4 0082 
623 = 642 20 unused 
643 1 i 
644 1 6 
SCAM DIAL 
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Meaning 
Mailbox busy. 
Mailbox To-Address 
field. ID of SCA 
partition. 


Mailbox From-Ad- 


Gress field. UAP 


partition number, 


Address in Common of 
Transmit Buffer. 


End of list of Trans- 
mit Buffer Addresses. 


Only one Transmit 
Buffer is being 
defined, 


Address in Common of 
the Receive Buffer. 


End of list of 
Receive Buffer 


addresses. 


Only one Receive 


Buffer is being 


defined. 


Maximum number of 
characters to be 
read. (80 data 
characters plus one 
ETB or ETX plus one 
overflow character.) 


Area not used for 
dial configurations. 


Length of this 
station's ID. 


Length of calling 
station's ID. 
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System Mailbox Number , 
Core Location | of Bytes Contents Meaning 
645 = 649 5 -HELLG = This station's I 
: | | | ae AM ID. ; 

650 1 unused The I AM ID selected 
does not use all of 
the six positions 
available, 

651 = 656 x 6 CALLER This station's WRU 
list. (The ID 
expected from the 
calling station.) 

657 | 1 Z End of WRU list. 


This station will 
accept a call only 
from a station that 
sends “CALLER” as 

its ID after calling. 


STATUS 


The user application main program branches and links to the 
Status Subroutine 


e In its read logic when it finds the Receive Buffer has 
not been filled by the SCA Module’s Read Routine, 


e And in its write logic when it finds that a Transmit 
Buffer that it has posted ready has not been transmitted 
by the SCA Module's Write Routine. 


The UAP‘'s Status Subroutine checks the Partition Status Byte 
(for a code other than N) and the Inhibit Switch (for a non-zero 
value) to see if the SCA Module has posted an error condition or 
the receipt of an EQ@T. The Status Subroutine posts normal, 
error, or E@T status and then returns to the main program. The 
main program branches to a location determined by the status. 


Normal Status 
The Status Subroutine posts normal status when no codes have 
been posted in the Inhibit Switch or the PSB. The main program 
continues to wait for its Receive Buffer to be filled or its 
Transmit Buffer to be transmitted. 


Error Status 


The Status Subroutine posts error status if it finds an error 
code in the PSB or the Inhibit Switch. 
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PSB Errors 


‘Before the SCA Module posts an error in the PSB, it has tried 


eight times to perform the I/O instruction, PSB errors are 
considered temporary, because they can be retried. (See 
Read Errors and Write Errors under Partition Status Byte in 
Chapter 2.) However, in this example the UAP does not retry. 
When the Status Subroutine finds an error code in the PSB, it 
requests that a DLE EQ@T be sent, it reports the error on the 


work station, and it posts error status. The main program 
returns to the beginning of its read logic. 


Inhibit Switch Errors 


The SCA Module always disconnects the line after posting an 
error in the Inhibit Switch. (Note: The receipt of an E@T while 
reading or during handshaking Is posted in the Inhibit Switch 
but is not considered an error and does not cause the line to be 
disconnected.) Inhibit Switch errors cannot be retried. When 
the Status Subroutine finds an Inhibit Switch error it posts 
error status and it reports the error on the work station. The 
main program returns to the beginning of its read logic to wait 
for a new call to come in. 


Error Codes 


In this example all errors are reported on the work station. A 
UAP may be designed to take special action depending on the type 
of error posted in the PSB or Inhibit Switch. See Chapter 2 i<- 
the meaning of the codes that may be posted. 


E@T Status 


The receipt of an E@T while the SCA Module is performing 
handshaking or reading data means that the calling station is 
ready to receive from this station. The SCA Module posts a W 
(ET while reading) or X (E@T during handshaking) in the Inhibit 
Switch, When the Status Subroutine finds one of these codes it 
posts E@T status and the main program branches to its write 
logic. Note: If the SCA Module receives an E@T while writing, 
it posts a Q in the Inhibit Switch, which is considered an error 
by the Status Subroutine. 


| SCAM DIAL | 
SINGER RESTRICTED - ADVANCE COPY | 12/71 


-DIAL@ANSWERING USER APPLICATION PROGRAM -= EXAMPLE _ 


oe FT! — CTE OTN HOY Sm NRO ks OE SRI FO MR Rl NT NTE ORY yore enews a ia Ce eeeetiesase ti ee ale Tal eee een en ee eee en een er ne amnemenetiiiiicntieneniitiicrsssnien enntillia taeda tits an alter Nestea sient et haat “7 


| 


oc aus PREPARE TRANS- 
INIT oo REPORT MIT BFFR FOR 


ERROR 


ee 


PAGE 
6 


— 
Oo 


SET 
RECEIVE 
BUFFER 

AVAILABLE 


| (BR & SW) = | | 
) a ) met | 
ACTIVE? : WITCH ) 
| | ) ae SWITCH | | 
6-14 

: aeae Soul 
¥ 16 , ! : ‘ 
| CALCULATE | PREPARE CCB (9 ) | 
s FOR WRITING | 

| ADDRESS & | DATA 
| SET TO N __. | | , 
--—---4 
| 4 (BR & SW) | m1 | 
MBOX 7 
tons | raat | 
a te | POST READY | 

6-8 YES _| 
[ es 19 | 
| eae 
MOVE TL 
| Pee as : 
| cru wanes | 
| ae 2 AA NORMAL | 
INIT YES RESET 

| SERCR? ee HATLBOY Stns aCLy | 
1 STATUS BYTE (BR & aC ! 
| ERROR | 


STATUS 
SUBROUTINE 


FROCESS 
CATA 
BLOCK 


coaaiaaaanA aE aan aan 


Figure 6-1. UAP Main Program 
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Figure 6-2. UAP Main Program (STEPS 1-3) 
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MAIN PROGRAM 
e START 
1 IS THE SCA MODULE ACTIVE? 


Is *ECB+6,7 = a valid partition number for the SCA? 

When the SCA Module begins execution it stores its partition 
number in relative locations 6 and 7 of the CCB (&ECB+6,7). The 
UAP examines these two positions to see if the SCA Module is 
loaded and executing. 


If YES, go to step 2. } 

If NO, branch and switch to ‘this. test to wait for the SCA 
Module to become active, A UAP might count the number 
of times the test has been made so that it can print an 
error message and terminate after some number. | 


2 CALCULATE THE SCA'S PARTITION STATUS BYTE ADDRESS AND SET IT TO N 


Add the SCA‘'s partition number (*#ECB+6,7) to 0560C to get the 
address of the SCA Module's Partition Status Byte for error 
checking. Move an N (normal) to the PSB, 


3 MAILBOX “AVAILABLE? > 


Mailbox Status Byte = A? 

Is the System Mailbox available. for use? An A in the status 

byte (relative position 0) indicates the System Mailbox is available. 
B,C, or X in the status byte indicates the System Mailbox is 

being used. If no other partitions are using the mailbox, this 

test can be omitted. | 


If YES, go ‘to step 4, 

If NO, branch and switch to this test to wait for the 
Mailbox to become available. A UAP might count the 
number of times the test has been made so that it can 
print an error message and terminate after some 
number. 
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Figure 6-2. UAP Main Program (STEPS 4-8) 
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4 MOVE THE INITIALIZATION RECORD TO THE SYSTEM MAILBOX 


Move the Initialization Record into the System Mailbox and post 
the Mailbox busy with information from the UAP partition for the 
SCA partition. The information moved to the System Mailbox is 
shown under Initialization in this section. 


5 INITIALIZATION ERROR? 


Inhibit Switch = E? 

Was there an error during initialization? 

The SCA Module posts an E in the Inhibit Switch (#ECB) if there 
is an error in the Initialization Record. 


If NO, go to step 8. 
If YES, go to step 6. 


6 RESET MAILBOX STATUS 
Reset the Mailbox Status Byte to A. 


7 REPORT ERROR 


Print a message on the workstation indicating that the program 
is ending due to an initialization error and then stop processing. 


8 INITIALIZATION COMPLETE | 


Mailbox Status Byte = A? 

Has initialization been successfully completed? 

After successful initialization the SCA Module posts the System 
Mailbox available (A in the Mailbox Status CPyeens 


If NO, branch and. switch to step 5. 
If YES, go to step 9. 
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9 SET RECEIVE BUFFER AVAILABLE 


Post an A (available) in the Buffer Status Byte (relative 
position 0) of the Receive Buffer. 


10 RECEIVE BUFFER FULL? 


Buffer Status Byte = E? Has the Receive Buffer been filled with 
data? The Read Routine posts an E in the Buffer Status Byte 
when the buffer has been filled. 


If YES, go to step 11. 
If NO, go to step 12. 


Note: A full Receive Buffer or E@T status is the UAP's first 
indication that a call has come in. Until the first call comes 
in and the first data block is read or an E@T is received, the 
UAP loops from this test to the Status Subroutine, to step 13. 
(which will find the status normal), and back to this test. 


11. PROCESS DATA BLOCK 


Process the data block just received. In this example the data 
block is printed on the line printer. Return to step 9. 


12 STATUS SUBROUTINE 


Branch and link to the Status Subroutine. 


13. STATUS | 
Test the status posted by the Status Subroutine. 


Status = normal means that the SCA Module is waiting for a 
call to come in or for the next data block or an E@T to 
be received from the calling station. Branch and switch 
to step 10. 

Status = error means that an error has occurred. 

Return to the beginning of the read logic at step 9. 

Status = E@GT means an E@T has been received from the calling 
station. The calling station has no more data to. send. 
Go to step 14 to see if this station has any data to 
send. 
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Figure 6-2. UAP Main Program (STEPS 14-15) 
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14 ANYTHING TO SEND? 


Does this station have anything to send? In this example the 
UAP looks for data in the card reader. 


If NO, go to step 15. 
If YES, go to step 16. 


15 RESET THE INHIBIT SWITCH 
Reset the Inhibit Switch to zero. When the SCA Module finds 
that the UAP has reset the Inhibit Switch without posting a D 
(write request) in the Operation Code, it sends an EOT. 


Go to step 9. 
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Figure 6-2. UAP Main Program (STEPS 16-22) © 
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16 PREPARE CCB FOR WRITING DATA 


Move a D_ to the Operation Code (#*ECB+2) and reset the Inhibit 
Switch (*#ECB) to zero. An E@T has just been received and the 
appropriate code has been posted in the Inhibit Switch. The SCA 
Module will not continue processing until the UAP has reset the 
Inhibit Switch to zero, Control will not enter the Write 
Routine until the Operation Code is set to D by the UAP, 


. 17. FILL THE TRANSMIT BUFFER AND POST IT READY 


Move data to the Data field of the Transmit Buffer. Move the 
data length to the buffer's Data Length field. Move aD (ready) 
to the Buffer Status Byte. 


18 DATA TRANSMITTED OK? 


Buffer Status Byte = A? 

Has the data block been transmitted successfully? The Write 
Routine posts an A in the Buffer Status Byte after successfully 
transmitting the data block. 


If YES, go to step 21. 
If NO, go to step 19. 


19 STATUS SUBROUTINE 
Branch and link to the Status Subroutine. 
20 STATUS | 
Test the status posted by the Status Subroutine. 


Status = normal means that the Write Routine is still trying 
to transmit the data block. Branch and switch to step 
18. 

Status = error means that an error has occurred or an E@T or 
DLE ET has been received. (Note: Receipt of an ET 
while writing is considered an error and causes error 
status, not E@T status, to be posted.) Return to the 
beginning of the read logic at step 9. 


21 MORE DATA TO SEND? 


Does this station have more data to send? In this example the 
UAP looks for more data in the card reader. 


If YES, go to step 17. 
If NO, go to step 22. 


22 PREPARE THE TRANSMIT BUFFER FOR TRANSMISSION OF AN EQT 


Move a Q to the Write Flag and a D to the Buffer Status Byte in 
the Transmit Buffer. A Q in the Write Flag indicates that the 
Write Routine should send an E@T instead of data. The Write 
Routine will not look at the Write Flag unless the buffer is 
posted ready (D in the Status Byte). Return to step 9, the 
beginning of the read logic, to wait for more data or an EQ@T 
from the calling station or for a new call to come in. 
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Figure 6-2. UAP Main Program (STEPS 23-28) 
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STATUS SUBROUTINE 


23 


24 


25 


26 


27 


28 
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INHIBIT SWITCH SET? 


Inhibit Switch = some code other than zero? 
Has the SCA Module posted an error or EST code in the Inhibit 
Switch? 


If YES, go to step 24, 
If NO, go to step 29. 


E@T RECEIVED? 


Inhibit Switch = W or X? | 

Was an ET received while reading or during handshaking? The 
SCA Module posts a W in the Inhibit Switch if an E@T is received | 
while reading data. It posts an X if an E@T is received during 
handshaking. Either code means that the calling station is 
ready to receive data from this Bterrons 


If YES, go to step 25. 
If NO, then the Inhibit Switch setting indicates an error. Go 
to step 26. 
POST STATUS = EQT 
Return to the main program with E@T status posted. 
REPORT ERROR 
Print a message on the workstation indicating that an Inhibit 
Switch error has occurred and the line is being disconnected. 
Print the error code. 
RESET INHIBIT SWITCH 
Reset the Inhibit Switch to zero. 
POST STATUS = ERROR 


Return to the main program with error status posted. 
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29 PARTITION STATUS BYTE SET? 


PSB = some character other than N? 
Has the SCA Module posted an error code in the PSB? 


If NO, go to step 30. 
If YES, go to step 31. 


30 POST STATUS = NORMAL 
Return to the main program with normal status posted. 


31 REPORT ERROR 


Print a message on the workstation indicating that a PSB error 


has occurred. Print the error code. 
32 RESET PSB TO NORMAL 
Move an N (normal) to the Partition Status Byte. 


33 REQUEST THAT DLE E@T BE SENT 


Test the Activity Switch (*ECBt+3 in the CCB) to see if this 
station is reading data (Activity Switch = A) or writing data 
(Activity Switch = D) or if the line has been disconnected 


(Activity Switch = 0). 


To send a DLE E@T while reading data, move a 2 (send DLE EQT) to 


the Read Flag in the CCB, 


To send a DLE E@T while writing data, move a D (send DLE E@T) to 


the Write Flag in the Transmit Buffer and a D_ (ready) 


Buffer Status Byte. 


If the line has been disconnected, do not send a DLE EQ@T. 


Go to step 28. 
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INTRODUCTION 


This section provides supplemental information about the SCAM 
for dial configurations. It should be used as reference in 
conjunction with the general SCAM manual, SCA Data 
Communications Chapter 2. This section contains changes ~ and 
additions to the general SCAM manual. It will be deleted when 
the general manual is updated and rereleased. 


SCAM ROUTINES 


Handshaking Routine 


Select Version 5 (Nial-Answering) or Version 6 (Dial-Calling) of 
the Handshaking Routine. 


Initialization Routine 


Select any version of the Initialization Routine. Version 1 
(One-Time Initialization) is the easiest to use and should be 
adequate for most applications. 


Get-Buffer Routine 


Select any version of the Get-Buffer Routine. Version 1 
(Sequential) should be selected for most standard file 
transmissions (for transmissions in which the records are to be 
kept in sequence). 


Number of Buffers 


The UAP indicates how many Transmit Buffers and how many Receive 
Buffers it is using by placing the addresses of the buffers in 
the Initialization Record. The desiqn of the UAP is simplified 
if only one Transmit Buffer and one Receive Buffer are defined. 
(The sample dial-eanswering UAP presented in Section 6 uses only 
one Transmit and one Receive Buffer.) However, transmission will 
be faster if more buffers are defined. For line speeds up to 
2400 bps it is recommended that two Transmit Buffers and two 


Receive Buffers be defined. (The sample dial-calling WAP 


presented in Section 4 use two Transmit and two Receive 
Buffers.) er | 
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Sequential Buffers 


If Version 1 (Sequential) Get-Buffer is selected, the SCA Module 
uses the buffers one at a time, in sequence, beginning with the 
first. The UAP must use the buffers in the same sequence. The 
SCA Module uses index registers to point to the “current” 
Transmit and Receive Buffers. The following rules, showing the 
conditions under which the sequential Get-Buffer updates the 
Transmit Buffer pointer, should help the user to use the buffers 
correctly. 


1. If the current Transmit Buffer is not ready (status byte not 
x D), the SCA Module waits for that buffer to be posted 
ready. (The Write routine sends ENOs and INLE messages 
while it waits.) | | 


2. If the buffer is ready (status byte = PD) but the WAP has 
requested in the Write Flaq of the buffer that an EOT or DLE 
FOT be sent instead of data, it sends the EOT or DLE FOT 
(and it resets the Write Flaq to zero and the buffer status 
byte to A), but it does not update the Transmit Buffer 
pointer. The next time the Write Routine is entered, it 
waits for the same Transmit Buffer to be posted ready. 


3. If the buffer is ready and contains data to be transmitted 
(no EOT or DLE EOT request), the SCA Module tries to 
transmit the data block. If there is an error in 
transmission, it posts an F (error) in the buffer status 
byte and an error code in the Inhibit Switch or the PSB or 
both, but it does not update its Transmit Buffer pointer. 
The next time the Write Routine is entered, it waits for the 
same buffer to be posted ready. | 


4, When the Write Routine has successfully transmitted data 
from a given Transmit Buffer, it resets the status byte to A 
(available) and the Write Flag to zero and then it continues 
to the next Transmit Buffer. 


Sequential Receive Buffers are handled in approximately the same 
way. 


1. If the current Receive Buffer is not available (status byte 
not = A), the SCA Module waits for that buffer to be posted 
available. (The Read Routine sends WACKs while it waits.) 


2. If the current Receive Buffer is available, the SCA Module 
tries to receive data from the other station. If it 
receives an FOT or DLE EOT instead of data, or if an error 
occurs, it posts the appropriate code in the PSB or _ the 
Inhibit Switch or both, but it does not update its Receive 
Buffer pointer. The next time the Read Routine is entered 
it will try to fill the same Receive Buffer. 


36 when the Read Routine has successfully received data into a 
given Receive Buffer, it posts an lled) in the buffer 
status byte and then it tries to fill the next buffer. 
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Version 3 of the Get-Buffer Routine (Priority-Sequential) treats 
all Receive Buffers as sequential buffers (as described above). 
It treats the first Transmit Buffer as a priority buffer, It 
always checks the priority Transmit Buffer first, If that 
buffer is not ready, it checks one of the remaining (sequential) 
buffers, (See Get-Buffer Routine: Version 3 on page 2-10 in 
Chapter 2.) = : 


The use of priority buffers is described under Get~-Buffer 
Routine: Version 2 on page 2-10 in Chapter 2. 


Error Routine 


Select either version of the Frror Routine. Version 2 (Expanded 
Error Counts) is recommended unless there is not enough memory 
available for its use. 


Read Routine 


The Read Routine must be included in the assembly of a Dial- 
Answering SCA Module. If the answering station never actually 
receives data, only one Receive Buffer is needed, and it can be 
only 22 positions (the length of the buffer prefix plus two). 


A Dial-calling SCA Module need not contain a Read Routine if the 
calling station never receives data. It is not necessary to 
define a Receive Buffer if the Read Routine is omitted. For 
error-free assembly of the calling SCA Module, the following 
instructions must be inserted in place of the Read Routine: 


*READ BC *#RDEX(5) 
#RDEX BC 0(5) 


*RD8 DM 5C 


Write Routine 


The Write Routine must be included in the assembly of a Dial- 
Calling SCA Module. If the calling station never actually 
transmits data, only one Transmit Buffer is needed, and it can 
be only 20 positions (the lenqth of the buffer prefix). 


A PDial-Answering SCA Module need not contain a Write Routine if 
the answering station never transmits data. It is not necessary 
to define a Transmit Buffer if the Write Routine is omitted. 
For error-free assembly of the answering SCA Module, the 
following instructions must be inserted in place of the Write 
Routines: 


*¢WRITE BC *WRTEX(5) 
*WRTEX BC 0(5) 
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INTERPARTITION INTERFACE 


Communications Control Block 


Inhibit Switch (45CB) 


7—4 


Both the calling and answering SCA Modules disconnect the line 
after posting any code other than zero, X, or 4 in the Inhibit 
Switch. The meaning of code X is discussed below. The meaning 
of code W is discussed under Inhibit Switch in Chapter 2. 


All of the Inhibit Switch codes discussed in Chapter 2 may be 
posted by a dial SCA Module. In addition, the ronrowend codes 
may be posted by a dial Handshaking Routine. 


Code Meaning 


p An error in handshaking immediately after the call 
was established. The errors described under PpsB 
codes A, C, D and S in Chapter 2 or the receipt of 
an invalid WRU ID will cause this code to be posted. 


‘e) DLE EOT or FOT received during handshaking 
(alpha) immediately after the call was established. 


When this code is posted by a calling SCA Module it 
usually menas that the answering station did not 
accept the calling station's I AM ID. 


2 Frror in handshaking after the first transmission. 


The errors described under PSB codes A, C, D, and §S 
in Chapter 2 will cause this code to be posted. 


x FOT received by the Handshaking Routine. 


The other station sent an EOT instead of an FNOQ when 
it had the option to send data. This normally means 
the other station has no data to send and is ready 
to receive data from this station. 


Read Flag (4ECB+1) 


The dial SCA Module's use of the Read Flag is described on page 
3-6 of Chapter 2 
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Operation Code (#FCB+2) 


Code Meaning 


A Read request. 


The dial SCA Module does not check the Operation 
Code for an A before entering its Read Routine. 
There is no need for a dial WAP to post an A in the 
Operation Code. 


D Write Recuest. 


After a dial SCA Module has received an FOT from the 
other station, it waits for its UAP to reset the 
Inhibit Switch to zero and then it checks the 
Operation Code. It enters its Write Routine only if 
the UAP has posted a PD in the Operation Code. This 
means that the Dial-Answering SCA Module will never 
enter its Write Routine unless the WAP has posted a 
D in the Operation Code. 


The Dial-Callinag SCA Module enters its Write Routine 
automatically after a call has been placed and 
initial handshaking (and ID exchange, if requested) 
has taken place, regardless of the Operation Code 
setting. Tt will not reenter its Write Routine 
unless the WAP has posted a fp in the Opener on Code. 


0 ss OF F.. 
(zero) 


The SCA Module moves a zero to the Operation Code 
whenever it exits its Read Routine or Write Routine. 


After receiving an EOT from the other station, the 
dial SCA Module waits for the UAP to reset the 
Inhibit Switch and then checks the Operation Code 
for a PD (see code D above). If it finds a zero 
instead of aonb, it assumes that the UAP has no data 
to send. 


When a Dial-Answering SCA Module Handshaking Routine 
finds that its UAP has no data to send, it sends an 
FOT to the calling station. If the calling station 
is a System Ten with an SCA Module, this EOT will 
cause an X (EOT received by the Handshaking Routine) 
to be posted in the Inhibit Switch of the calling 
station. (See Inhibit Switch code X above.) 


When a Dial-Calling SCA Module Handshaking Routine 
finds that its UAP has no data to send, its action 
depends on the timing of the EOT just received. If 
the FOT was received by the Read Routine (see 
Inhibit Switch code W in Chapter 2), it sends an FOT 
and waits for a response. If the FOT was received 
by the Handshaking Routine (see Inhibit Switch code 

X above), then neither station has data to send: it 
sends a DLE EOT and disconnects the line. 
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| Meaning 


Disconnect request. 


After receiving an FOT from the other station, the 
dial SCA Module waits for the UAP to reset the 
Inhibit Switch and then checks the Operation Code 
for a D (see code DP ahove). If it finds an FE 
instead of a PD it sends a DLE EOT and disconnects 
the line. 


Activity Switch (tECB+3) 


The SCA Module posts a code in the Activity Switch to indicate 
whether it is in its Read Routine, its Write Routine, or its 
Handshaking Routine. The WAP can test the switch but it should 
not alter it. | | 


Code 


zero 


Meaning 

The SCA Module is in its Read Routine. 

The SCA Module is in its Write Routine. 

The SCA Module is in its Handshaking Routine. 


The Activity Switch is zero from the time the SCA 
Module is loaded until it establishes the first 
connection and completes initial handshaking and ID 
exchange. It is reset to zero when the line is 
disconnected and remains zero until a new connection 
is established and initial handshaking and ID 
exchange is again completed. | 


Partition That Last Initialized (#FCB+4,5) and 
SCA‘s Partition Number (4FCRB+6,7) 


The dial SCA Module's use of these fields is described on paqe 
3-7 of Chapter 2. 


Partition Status Byte 


The dial SCA Module's use of the PSB is described on pages 3-8 
to 3-12 of Chapter 2. 


System Mailbox and Initialization Record 


The dial 


SCA Module's use of the System Mailbox for 


initialization is described on pages 3-13 to 3-17 of Chapter 2. 
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Transmit and Receive Buffers 


The dial SCA Module’s use of Transmit and Receive Buffers is 
described on pages 3-18 to 3-28 of Chapter 2 and under Get=- 
Buffer Routine in this section. | 


IDLE Message Buffer 


The IDLE Message Buffer does not have to be used by the UAP to 
pass phone numbers to the Dial-Calling SCA Module. A new area 
in Common, the Call Work Area is used instead. (See Call Work 
Area below.) The Call Work Area may overlap the IDLE Message 
Buffer. 


The dial SCA Module does use the INLE Message Buffer for the 
transmission of IDLE Messages as described on pages 3-29 to 3-31. 
of Chapter 2. 

Call Work Area 
The Call work Area is a 4u-character area in Common used by a 


calling UAP to pass phone numbers to the Dial-Calling SCA 
Module. The Call Work Area may overlap the IDLE Message Buffer. 


Format of the Call Work Area 


STATUS. 


LENGTH 


NOT USED PHONE NUMBER 
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Call Work Area Fields 


Relative 


Location 


0 


20—43 


7-8 


- Length 


1 


24 


Meaning 
Status Byte. 
ND -=- ready. 


The UAP moves aD to the status byte to 
indicate to the SCA Module that it has 


prepared the Call Work Area with a phone 


number to be dialed. 
A -- available. 


The SCA Module moves an A to the Status 
byte to indicate to the UAP that the 
phone number has been successfully 
dialed, 


Fee» error. 


The SCA Module moves an F to the status 
byte to indicate to the WAP that there 
was an error in dialing (for example, a 
busy siqnal or no answer or an invalid 
phone number). The SCA Module tries 
eight times to place the call before 

it posts an F in the status byte. This 
may take several minutes. 


Unused. 

Length. 

The UAP moves the two-digit length of 
the phone number to be dialed to this 
field. 


Phone Number. 


The NAP moves the nhone number to be 


at 


SCAM DIAL 


SINGER RESTRICTED - ADVANCE COPY 


12/71 


APPENDIX A 


LISTING OF SAMPLE DIAL“CALLING UAP PRESENTED IN SECTION 4 


SCAM DIAL 
SINGER RESTRICTED - ADVANCE COPY | 


PAGE 0001 


LABEL 


A 
BCLEAR 
BCLREX 
BF2ADR 
BF4ADR 
BUFF 1 
BUF Fe 
BUFFS 
BUFF4 
BUFS 
CALLNO 
D 
DIALOO 
DIALOS 
DIAL10 
DIAL15 
DIAL20 
DIAL25 
OIAL30 
DOIAL35 
DIAL37 
DIAL40 
DIAL4&5 
DIAL55 


DIAL6O 


DIAL65 
DIAL70 
OIAL75 
DIAL80 
DIAL8S5 
“E 

ERR1 
ERR2 
ERRQ 
ERR4 
ERR6 
ERR6A 
ERR6B 
ERR7- 
ERR7A 
ERRB 


11/24/71 (4"Q2) 
LOC LELNTH INvUX 
1700 01 0 
1490 10 0 
1690 10 0 
1719 04 0 
1723 04 O 
1500C 20 0 
1600C 20 0 
1700C #20 oO 
1900C 20 0 
2061 O04 0 
1728 06 0 
1701 O1 0 
0370 10 O 
0430 10 O 
0450 10 0 
0470 10 0 
0490 10 O 
0540 10 O 
0580 10 0 
0630 10 0 
0670 10 oO 
0710 10 oO 
0780 10 0 
0850 10 O 
0860 10 O 
0970 10 O 
0990 10 .0 
1010 10 0 
1050 10 0 
1090 10 O 
1702 01 0 
1738 20 O 
1758 21 0 
1779 14 0 
1793. 10 0 
1803 15 0 
1818 06 0 
1824 O01 0 
1825 20 0 
1845 80 0 
1925 20 0 
1945 80 0 
2025 30 oO 
1727. O01 0 
1737. 01 «0 
2119 40 O 
1713. O1 0 
1714 01 0 
1715 O04 0 
1703. O01 oO 
2056 O05 0 
1704 O01 0 
1734 03 0 
1705 o1 0 
1709 01 0 
2055 O1 0 


LABEL TABLE FOR USER APPLICATION PROGRAM FOR DIAL*CALLING STATION 


MESSAGES 


UNUSED 


UNUSED 


PAGE 0002 11724771 (4=#02) LABEL TABLE FOR USER APPLICATION PROGRAM FOR NIAL@CALLING STATION 


92 LABELS 


LABEL LOC LNTH INDX MESSAGES 
STAT15 1250 1.0 0 

STAT20 1270 10 ) 

STAT3O0 1340 10 0 UNUSED 
STAT35 1370 10 0) 

STAT4O 1380 10 Q 

STAT&45 1390 10 0 

STAT5O 1420 10 0 

STAT5S 1450 10 0 

STAT60 1550 i0 0 

STAT65 1610 10 0) 

STAT70 1680 10 Q 

STATEX 1480 10 QO 

STATUS 1160 10 ¢) 

Vo 1706 O1 0 

W 1707 O04 6) 

x 1708 O1 8) UNUSED 
1.2 0011 04 0 
X2: 0021 04 8) 

x3 0031 04 0 

ZEROS 1710 03 0 

-9B1 0001C 02 0 UNUSED 
9¥B10 - oo010c O12 0 

4BS ~90005C 04 e) 

“9B9 oo0gsc O01 0 

*BASE oo00c O01 0 

eCWA © 1050C 44 0 

ECB 1000C 18 re) 

* IDEN 0643C 99 0 UNUSED 
‘+IDLEB 1050C 80 0 UNUSED 
4IMSG 0560C 20 9) UNUSED 
*K101 o101c 04 0 UNUSED 
MAIL 0580C O05 0 

*SEND. o585C 17 0 UNUSED 
SINK e6o0ec 21 0 UNUSED 
¢*STAT 0560C 20 6) 


PAGE 
SE Qe 


0020 
0030 
0040 
0050 
0060 


9080 
0090 
9100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 


0200 
0210 
0220 
0230 
0240 


0260 
0270 
0280 
0230 
0300 


0320 
0330 
0340 
0350 
0360 


0380 
0330 
0400 
0410 


0430 
0440 
0450 
0460 
0470 


0490 
0510 
0520 
0530 


0550 
0560 


oo001 


LOCN 


0000 
Q000 
0000 
0000 
0000 


0900 
0000 
0011 
0015 
0021 
0025 
0031 
0035 
0300 
0300 
0300 


0300 
0310 
0320 
0320 
0320 


0320 
0330 
0340 
0340 


0340 


0340 
0350 
0360 
0360 
0360 


0360 
0370 
0370 
0370 


0370 
0380 
0390 
0390 
0330 


0390 
0400 
0400 
0400 


0400 
0410 


11/24/71 


INSTR/DATA 


170P 
Q56P 


150P 


PQPOVe1/10 
SOSRO80 300 


eQpPv400e1 
P170410P0P 


PPU8P11700 
ROSVO080340 


P20560058P 


PQPOP11/0e 
ROSYO90430 


P17001058P 


017P330001 
0178810020 


(4"#02) 

UP AsR LL 
0011 
0001 
Oo0e21 
0001 
0O031 
Oo0o01 
0300 

14 1006C O 

11 0320 3 

U7 1006C 2 

08 1704 O 

14 O580C 0 

11 0360 e2 

08 2056 0O 

14 1000C O 

11 0390 2 

08 1700 O 

Ul 14703 O 

01 1738 O 


PRUGRAI 


I 


oOo 


LISTING FUR USER APPLICATION 


B/S 


QN004 
0004 


0004 


1710 
0300 


0021 
QOOO0OC 


1700 
0340 


0O580C 


1702 
0430 


O580C 


0001 
0020 


te 


m+ 


to = 


na 


1 


om &) 


] 


Q 


LINE 


OUV2 
0003 
0004 
OVO05 
O0UU6 


0008 
0009 
0010 
0011 
O01e 
0013 
0014 
0015 
0016 
0017 
0018 


0020 
0021 
0022 
0023 
0024 


0026 
0027 
0028 
0029 
0030 


0032 
0033 
0034 
0035 
0036 


0038 
0039 
0040 
0044 


0043 
0044 
0045 
0046 
OU47 


0049 
Q050 
0051 
0052 


0054 
0055 


LABEL 


«ee &k& EE 


NORMAL 


ORG 
x1 DM 
ORG 
DM 
ORG 
DM 
ORG 


x3 


STEP 1 


« 


*» STEP 2 


*# STEP 3 


*» STEP 4 


OF CODE 


SAMPLE USER 


PROGRAM FOR DIALeCALLING 


OPERAND(S) 


STATION 


AND/OR COMMENTS 


APPLICATION PROGRAM FOR DIAL@CALLING STATION 


11 
A'BUFF3' 
21 
A'@*STAT! 
31 
A'BUFF1! 
300 


(ECB+6(2),ZERUS 
*410(3)9¥"10(8) 


tECB+6(2) 4X2 
Na t BASE (2) 


*MAIL(1)04 
¥410(2)9¥010(8) 


MAIL (100) ,9MAIL 


fECB(1)s€E 
*+410(2)sDITAL05(5) 


As tMAIL 


M(0)21(3) 
ERR1(0)s20(1) 


ADDRESS OF RECETVE BUFFER 


ADDRESS OF PSB'S 


ADDRESS OF TRANSMIT BUFFER 


Is SCa AaCTIvte? 
IF NOT WAIT FOR IT 


COMPUTE SCA'S PSB ADDRe 
SET SCA't*S PSB TO NORMAL 


IS MAILBOX AVAILABLE? 
IF NOT WAIT FOR IT 


SAVE IN X2 


MOVE INIT RECORD TO MAIL #=BOX 


WAS THERE INIT ERROR? 
IF NOY BRANCH 


RESET MAIL*BUX AVAILABLE 


CARRIAGE RETURN TO WORK STATION 


REPORT ERROR 


0002 11/24/71 (402) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL@CALLING STATION 


LOCN INSTR/DATA VP avyR tL IT B/S LI LINE LABEL OFPCODE OPERAND(S) AND/OR COMMENTS 


0420 U9YYO00VO0000 11 9990 5 0 9000 6 0 0056 BC 9990(5) BLOW UP 

0430 O0S7 » 

0430 Q05% »* STEP 8 

0430 0059 « 

0430 PPUBP11700 14 05x0C 0 0 1700 1 U 0061 DIALOS C tMAIL(1)94 IS INIT COMPLETE? 


0440 ROTUN80370 11 0450 2 0 0370 8 0 0062 BC ¥+19(2)sDIALO0(8) YES 60 ONsELSE WAIT FOR INIT 


PAGE 
SEQe 


0650 
0660 
0670 
06390 
0700 
0710 
0720 
0730 
0740 
0750 


0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 


0860 
0870 
0880 
0890 


0910 
0920 
0930 
0940 
0350 


0960 


0970 
0980 
0990 


1010 
1020 
1030 
1040 
1050 


11/24/7771 


INSTR/DATA 


P170010490 
P17\010580 
117P930001 
TOTYOSO05S40 


POTWOUOO0O0D 
P170410490 
017P330001 
017U8100e21 
UOTWOOO00O 


1105P10044 


SOTUDNVQN0D0N 


PQP5P61728 
ROVSOO0000 


POUTOQ0000 
P17Q410580 
017P330001 
017w910014 
UdUTOOO0N0D 


UP 


Og 
09 
v1 
11 


11 
OY 
Ol 
Ol 
11 


QO 


il 


14 
il 


11 
Og 
U1 
Q1 
11 


A/R 


1710 
1710 
1709 
0490 


0470 
1714 
1703 
1758 
0470 


1050C 


0450 


1050C 
0630 


0540 
1714 
1703 
1779 
0540 


L 


aoocns Freoo 
ooo 0c °0o 


No 


mMooc7ns 
ooo0o°o 


I 


() 


B/S 


0490 
0580 
Ooo01 
0540 


0000 
0490 
O001 
0021 
0000 


0044 


0000 


1728 
0000 


Q000 
0580 
0001 
0014 
0000 


L I LINE 


QW er pe 


Or We oO 


0 


oO Wr Oo 


oo osc 


coo ceo 


0064 
0065 
0066 


0068 
0069 
GO70 
0071 
0072 
0073 
0074 


0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 


0085 
0086 
0087 
0088 


0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 


0100 
0101 
0102 
0103 
0104 


LABEL 


* 


(4°02) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL#CALLING STATION 


OPCODE QPERAND(S) AND/OR COMMENTS 


* STEP 9 INITIALISATION IS COMPLETEsFETCH NO TO CALL® 


¥ 


DIAL10 


OITAL15 


*» STEP 


* 


STEP 


DIAL3O ¢& 


ZERUS(1) 207 AL 20 
ZEROS(1)sDT AL 30 


QM(i)01(3) 


*+410(4) sD01AL25(5) 


DIAL15(0) 
K5,0IFAL 20 
M(O)a1(3) 
ERR2(0)021(1) 
DIAL15(5) 


¢(CwA(1)244(1) 


DIALiO(3) 


tCWA(6) sCALLNO 
DIAL35(2) 


DIAL25(0) 
K5sDIAL30 
M(0)91(3) 
ERR3(0)414(1) 
DIAL25(5) 


SET REPORT SWITCHES 


IS CARD READEK READY? 
IF SO BRANCH 


BRANCH BACK UNLESS REPORT SWITCH 
RESET REPORT SWIICH 

CARRIAGE RETURN TO WORK STATION 
REPORT CARD READER NOT READY 
BRANCH BACK. 


READ A CARD INTO CALL WORK AREA 


GO BACK IF UNIT SEPARATOR 


DOES THIS CARD CONTAIN 'CALLNO! 


YES BRANCH 


BRANCH BACK UNLESS REPORT SWITCH 
RESET REPORT SWITCH 

CARRIAGE RETURN TO WORK STATION 
REPORT NO CALLNO 

BRANCH BACK TO FIND CALLNO 


PAGE 
SEQe 


1070 
1080 
1090 


1110 
1120 
1130 
1140 


4160 
1170 
1180 
1190 
1200 


1220 
1230 
1240 
1250 


1270 
1280 
1290 
1300 
1310 


1330 
1340 
1350 
1360 


1380 
1390 
1400 
1410 


1430 
1440 
1450 
1460 


1480 
14390 
~ 1500 
1510 


1530 
1540 
1550 
1560 
1570 


1590 
1600 
1610 


0004 
LOCN 


0630 
0630 
0630 


0630 
0640 
0640 
0640 


0640 
0650 
0660 
0660 
0660 


0660 
0670 
0670 
0670 


0670 
0680 
0690 
0690 
0690 


06390 
0700 
0700 
0700 


0700 


0710 
0710 
0710 


0710 
0720 
0720 
0720 


0720 
0730 
0730 
0730 


0730 
0740 
0750 
0750 
0750 


0750 
0760 
0770 


11/24/71 


INSTR/DATA 


P105vi173/ 


PQW371170/7 
ROVVOQ5S0850 


P1714117e/ 


PPPOPQQG700 
ROWQ000000 


VitTx151160 


QO0TUN80670 


1002PQP080 


SowS050780 


PQW2711710 
RiPQOQ0000 


017P330001 
020R510030 
yOTUOD000N 


(4=0?2) 


UP 


08 


14 
11 


08 


14 
11 


11 


11 


00 


ij 


14 
11 


A/R 


1056C 


1737 
0660 


1714 


ooooc 
0710 


14a1 


0450 


0020C 


0730 


1727 
1010 


1703 
2025 
0450 


L 


NM Oo 


i 


Nw Oo 


Noo 
ooo 


I 


B/S 


1737 


1707 
0850 


1727 


1700 
0000 


1160 


0670 


0080 


0780 


1710 
Q000 


0001 
0030 
0000 


L I LINE 


0106 
0107 
0108 


0110 
QO111 
0112 
0113 


0115 
0116 
0117 
0118 
0119 


1 pe 


0121 
0122 
Ol23 
0124 


0126 
0127 
0128 
0129 
0130 


re 
© 


0132 
0133 
0134 
0135 


0137 
0138 
0139 
0140 


Oi4e 
0143 
0144 
0145 


0147 
0148 
0149 
0150 


0152 
0153 
0154 
0155 
0156 
0158 


0159 
0160 


ray 
oco 


LABEL 
* 


» STEP 
*% 


DIAL35 


% 
* STEP 


* STEP 


* 
* STEP 
# 


DIAL37 


* STEP 


s STEP 


& 
* STEP 
% 


DIAL40O 
& 
*« STEP 


* STEP 


* STEP 


OPCODE OPERAND(S) 


id 


MC 


16 


MC 


18 


BC 


23 


PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL=CALLING STATION 


AND/OR COMMENTS 


THIS SECTION TRANSMITS DATA 


(CWA+6(1) FUNC 


FUNCsW 
#4#10(2)sD0I1TAL55(5) 


K5,FRSTwWT 


*BASE(123)0A 
DIAL40(2) 


SAVE 7TH CHAR OF CARD JUST READ 


DOES IT SAY WRITE 
IF NOT BRANCH TO READ 


TURN ON FIRST WRITE SWITCH 


IS XMIT BUFFER AVAILABLE? 
IF YES GO TO READ A NEW CARD 


STATEX+1(6@),STATUS(5) ELSE GO TO STATUS ROUTINE 


DOIAL10(1)4QNIAL37(8) 
9B810410(1,3),80(1) 
##10(3) 2D] AL45(5) 


FRSTWT(21)4ZEROS 
DIAL75(2) 


M(Q)21(3) 
ERR9(0)230(1) 
DIAL10(5) 


RESTART OR NURMAL 


READ NEXT CARD INTO xMIT BUFFER 


BRANCH IF OK 


IF FLAG CHECK IST TIME SWITCH 
IF SET WE WAVE NUT ODITALED YET ELSE 
GO TO RECEIVE 


REPORT NO DATA TU SEND 


BRANCH BACK 


PAGE 
SEGe 


1620 
1630 
1640 


1660 
1670 
1680 
1690 
1700 


1720 
1730 
1740 
1750 


1770 
1780 
1790 
1800 
1810 


1830 
1840 


0005 
LOCN 


0780 
0780 
0780 


0780 
0790 
0800 
0800 
0800 


0800 
0810 
0810 
0810 


0810 
0820 
0830 
0830 
0830 


0830 


0840 


11/24/71 


INSTR/DATA 


P1i7154OPPU 
P1701 10PPP 


PQwQ940031 


PQW2711710 
ROVWOOO00O 


P171011727 
uOxUO000000 


{4"0?) 


UP 


08 
Us 


15 


14 
ii 


08 
li 


A/R 


1715 
1701 


1719 


1727 
0670 


1710 
0850 


L 


I 


B/S 


QQO5C 
O000C 


0031 


1710 
0.000 


1727 
0000 


L I LINE 
QO161 
0162 
0163 


+ 
& 


0165 
0166 
0167 
01628 
0169 


— 
Ww 


4 Q 0171 
Oi7e 
0173 
0174 


1 G 0176 
Q 0 0177 
0178 
0179 
0180 


1 Q 0182 
0 0 0183 


LABEL 


STEP 


x* x * 


DIAL45 
* 


* STEP 
* 


STEP 


* 


x 


STEP 


PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL@®CALLING STATION 


OPCODE OPERAND(S) AND/OR COMMENTS 


25 


MC 
me 


26 


MC 
BC 


KON80st85(43) 
De tBASE(s3) 


BF2ADRs X3 


FRSTWT(1)42EROS 
DIAL37(2) 


ZEROS(1)sFRSTWT 
DIALS5(5) 


SET LENGTH#8U | 
SET BUFFER READY TO TRANSMIT 


XCHANGE BUFFER POINTERS 


IS FIRST TIME SWITCH SET? 
NO GO ON TO SEND 


YES RESET IT AND WAIT FOR DIAL 


PAGE 
SEs 


1860 
1870 
1880 


1900 
1910 
1920 
1930 


1950 
1960 
1970 
1980 
1990 
2000 
2010 


2030 
2040 
2050 
2060 
2070 


2090 
2100 
2110 
2120 
2130 


2150 
2160 
2170 
2180 
2190 
2200 
2210 
e220 


2240 
2250 


0006 
LOCN 


0850 
0850 
0850 


C850 
0860 
0860 
0860 


0860 
0870 
0880 
0890 
03900 
0900 
0900 


0900 
0910 
0920 
0920 
0920 


0320 
0930 
0940 
0940 
0940 


0940 
0950 
0960 
0970 
0980 
0990 
0390 
0990 


0990 


1000 


11i/7e4/71 (4"02) PRIGRAM LISTING FOR USER APPLICATIUN PROGRAM FOR DIAL@CALLING STATION 


INSTR/DATA 


P17011105P 


PQPOS11/701 
ROY YOOUOO0O 
PQP5P1170e 
ROYPO50970 


017P330001 
017Y310010 


PQW371170/ 
ROY TO90450 


P170010PPP 
PQWQ940031 
UOTUOLOONOY 
ViTX191160 
QOTUD808E0 


PQW371170/ 
ROVWOOOOOO 


UP 


US 


14 
11 
14 
11 


Ol 
V1 


14 


14 
li 


A/R 


1003C 
0990 
1050C 
0900 


1703 
1793 


1737 
0940 


1700 
1719 
0450 
1481 
0450 


1737 
0670 


Le 


me rnono 


i 


oD OO 


oo 


oot Oo 0 


B/S 


1050C 


1701 
M000 
1702 
0970 


0001 
0010 


1707 
0450 


Qo0OdCc 
0031 
0000 
1160 
0860 


1707 
Q000 


Se © 


me 


Q 


Cc WwW 


Lo] LINE 


0185 


U156 
Ci&/ 
0189 


0190 
Q191 


0192 


O194 
0195 
0196 


0197 


0198 
0199 
0200 


0202 
0203 
0204 
0205 
0206 


0208 
0209 
0210 
0211 
Qele2 


0214 
0215 
0216 


Oel7 


0218 
0219 
0220 
0221 


0223 
0224 


LABEL 


* 
* STEP 
¥ 


OIAL55 
* 
* STEP 
*% 


DIAL6O 


STEP 


*« 


* STEP 


STEP 


« 


DIAL65 
¥ 


* STEP 
rv 


DIAL70O 


OPCOVE OPERAND(S) 


29 


MC 


Ds» tCwaA 


fECB+3(1)2D 
DIAL70{2) 
¥CWA(LIOE 
#4#10(2)2DIAL65(5) 


M(O0)021(3) 
ERR4(0)210(1) 


FUNC(41)o9W 
¥+#10(2)2DI1AL10(5) 


Ay t BASE (23) 
BFCADR, X3 
DIAL10(5) 


STATEX+1(6),STATUS(5) 
DIAL10(1),0TAL60(8) 


FUNCs Ww 
DIAL37(2) 


ANDZOR COMMENTS 


THIS SECTION DIALS THE NOe 


MARK CALL WORK AREA READYe CALL NO 
AND LENGTH READ IN DIRECTLY FROM 
CARD READER 


HAS A DATA®LINK BEEN ESTABLISHED? 
YES 

NO SO WAS THERE VIAL ERROR 

IF NOT BRANCH 


CARRIAGE RETURN TO WORK@STATION 
REPORT DIAL ERROR 


WERE WE ABAOUT TO WRITE? 
IF NOT RESTART 


RESET FIRST AMIT BUFFER AVAILABLE 
AND RESTORE AMIT BUFF POINTERS 


BRANCH TO STATUS SUBROUTINE 


RESTART OR NURMAL 


TO WRITE OR READ? 


BRANCH TO WRITE 


PAGE 0007 11724/71 (4"02) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL#CALLING STATION 


SEQ» LOCN INSTR/DATA UP ayR LI B/S L I LINE LABEL OPCODE OPERAND(S) AND/OR COMMENTS 


2270 1010 0226 » 

2280 1010 0227 » STEP 35 

2290 1010 7 0228 » 

2310 1010 P170510PPY 08 1705 O 0 Q009C 1 3 0230 DIAL75 MC Q21B9(s3) SET EOQT IN WRITE FLAG 

2320 1020 P170110PPFP US 1701 O 0 0000C 1 3 0231 | MC D» tBASE(s3) SET XMIT BUFF READY TO GO 
2330 1030 0232 

2340 1030 0233 * STEP 36 THIS SECTION RECEIVES DATA 

2350 1030 0234 * 

2370 1030 P17001170P 08 1700 0 0 1700C 1 0 0236 MC As BUFF3 SET RECEIVE BUFFERS AVAILABLE 
2380 1040 P17001190P 08 1700 0 0 1900C 1 0 0237 MC AsBUFF4 

2390 1050 0238 * 

2400 1050 | 0239 * STEP 37 

2410 1050 | 0240 » 

2430 1050 PPPOPIQ70e 14 0000C 0 11702 1 0 0242 DpIALsO Cc tBASE(Laliet IS RECEIVE BUFFER FULL? 

2440 1060 R1iPYO00000 11 1090 20 0000 0 0 0243 BC DIAL85(2) YES 

2450 1070 | 0244 

2460 1070. | 0245 * STEP 38 

2470 1070 0246 * 

2490 1070 vViTX151160 11 1481 6 0 1160 5 0 0248 | BC STATEX+1(6)sSTATUS(5) BRANCH TO STATUS SUBROUTINE 
2500 1080 0249 » 

2510 1080 ; 0250 -«* STEP 39 

2520 1080 . 0251 «# 

2540 1080 QG0TU081050 11 0450 10 1050 8 0 0253 BC DIAL10(1)4D1AL80(8) RESTART OR NORMAL 

2550 1090 . 0254 a | 

2560 1090 — 0255 »* STEP 40 

2570 1090 | 0256 « | 

2590 1090 POOPUSG106 09 O005C 0 1 1106 4 0 0258 DIAL85 MN 1B5(451)24416 | SET LENGTH FOR PRINY INSTRUCTION 
2600 1100 200RP1P100 01 Qo20Cc 2 1 0100 1 0 0259 Wo 1810410(2s1),100(1) PRINT RECEIVE BUFFER 

2610 1110 P2055100RP 08 2055 0 0 0020C 1 1 0260 MC SPACEs?B10#10(s1) CLEAR FIRST 80 CHARS OF RECV BUFF 
2620 1120 WwOO2P9PORU 08 0020C 7 1 0021C 9 1 0261 MC (B10+410(79,1)stB1O+11 (41) 

2630 1130 . . 0262 » | 

2640 1130 . 0263 «* STEP 41 

2650 1130 0264 + 

2670 1130 P1700100PP 08 1700 0 0 QO00C 1 1 0266 MC As tBASE(s1) SET RECV BUFFER AVAILABLE 
2680 1140 , 0267 » | 

2690 1140 | 0268 * STEP 42 

2700 1140 0269 « 

2720 1140 pPPQ141723 15 o011 0 0 1723 4 O 0271 x X1sBF4ADR XCHANGE RECV BUFFER POINTERS 
2730 1150 wuU1PU000000 11 1950 5 0 0000 0 0 0272 BC DIAL80(5) BRANCH BACK FOR NEXT ONE 


PAGE 
SEQe 


2750 
2760 
2770 


2790 
2800 
2810 
2820 
2830 


2850 
2860 
2870 


2880 


2830 


2910 
2920 
2930 
2940 


2960 
2970 
* 2980 
2990 
3000 


3020 
3030 
3030 
3040 
3050 


3070 
3080 
3090 
3100 
3110 


3130 
3140 
3150 
3160 


3180 
3190 
3200 
3210 


3230 
3240 
3250 
3260 
3270 


0008 
LOCN 


1160 


1160 
1160 


1160 
1170 


1180 


1180 
1180 


1180 
1190 
1200 
1200 
1200 


1200 
1210 
1210 
1210 


1210 
1220 
1230 
1230 
1230 


1230 
1240 
1250 
1250 
1250 


1250 
1260 
1270 
1270 
1270 


1270 
1280 
1280 
1280 


1280 
1290 
1290 
1290 


1290 
1300 
1310 
1310 
1310 


11/24/71 (4*021 PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL*CALLING STATION 


INSTR/DATA UP ayR Ll 


PQPOP11710 
R1IRwOO00000 


P100P118138 


PoooPpuls24 


Vivy191490 


PQPOP1170/ 
RiRUONONNU 


P17103100P 
U1Sx000000 


P17343100P 
U1Sx0Q00000 


PPPOPW1704 


RiTxOQ00000 


P100P11818 
PODOPUI824 


14 
11 


08 


08 


11 


14 
11 


08 
il 


O08 
11 


14 


11 


Q& 


08 


1000C 
1270 


1000C 


OQOO0C 


1691 


1000C 
1250 


1710 
1380 


1734 
1380 


OOO0O0C 


1480 


1000C 
oo00dCc 


os 


mM © 


co 


B/s 


1710 
0900 


1812 
1824 


1490 


1707 
0000 


1000C 
0000 


1000C 
0000 


1704 


0000 


1818 
1824 


tL IT LINE 


rey 


nn 


OW 


oO W 


Q 


0274 
0275 
0276 


0278 
0279 
0280 
0281 


0282 


0°84 
0285 
0286 
0287 
0288 


0230 
0291 


0292 


0293 


0295 


0296 
0297 
0298 
0299 


0301 


0302 
0303 
0304 
0305 


0307 
0308 
0309 
0310 
O311 


0313 
0314 
0315 
0316 


0318 
0319 
0320 
0321 


0323 
0324 
0325 
0326 
Q327 


LABEL OPCODE OPERAND(S) AND/OR COMMENTS 


es 
* STEP 
* 


STATUS 
* 


* STEP 
“ 


STEP 


« 


« STEP 


STEP 


x 


* 
STEP 


x 


* 
STATI5 


¥% 
» STEP 
*& 


STAT20 
: 
« STEP 
* 


STEP 


& 


STEP 


* 


43 


BC 


46 


STATUS ROUTINE 


#ECB(1)sZEROS 


STaT20(2) 


*ECH(1)2ERRGA 
1BASE (192) eERROB 


IS INHIBIT SWITCH SET? 
NO . 


ELSE PREPARE REPORT wITH INH Sw 
AND PSB CODES 


BCLREX+1(6}),BCLEAR(5) BRANCH TO SUBR TO CLEAR XMIT BFS 


¢ECB(1)aW 
STAT15(2) 


ZEROS» ¢ ECB 
STAT40(5) 


OPCONs tECB 
STAT40(5) 


*BASE(1Ls2) gn 


STATEX(2) 


1ECB(1)sERRGA 
1BASE (122), ERREB 


END OF DATA? 
YES 


NO RESET INH SWITCH & BRANCH 10 
RESET PSB 


RESET INHIBIT SWITCH & SET OP=CODE 


BRANCH TO RESET PSB TO NORMAL 


Is PSB SET? 


STATUS NORMAL [TS CCse 


ELSE PREPARE REPURT WITH INH Sw 
AND PSB CODES 


PAGE 
SEQe 


3290 
3300 
3310 
3320 
3330 


3350 
3360 
3370 
3380 


3400 
3410 
3420 
3430 
3440 
3450 


3470 
3480 
3490 
3500 


3520 
3530 
3540 
3550 


3570 
3580 
3530 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


3690 
. 3700 


3730 
3740 
3750 
3760 
3770 
3780 
3730 
3800 
3810 
3820 
3830 
3840 


0009 


LOCN 


1310 


1320. 


1330 
1330 
1330 


1330 
1340 
1340 
1340 


1340 
1350 
1360 
1370 
1370 
1370 


1370 
1380 
1380 


1380 


1380 
1390 
1390 
1390 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1470 
1470 


1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


11/24/71 (4=#02) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL@CALLING STATION 


INSTR/DATA 


PaPOS11700 
RiswoO00000 


VivY191490 


P1701 10PPY 
P170110PPP 
U1Sx000000 


P17131100W 


P170410PO0OP 


UI TROOOODOD 
218R510100 
P17Q411390 
UI1TUOOOONDDN 
219R510100 
P17Q411420 
017P330001 
018P31002e 


PQW1011713 
UOPPOOOO000 


PPPOPWOQ702 
R1UU000000 
PQwWQ940031 
PPPOPQG702 
R1UU000000 
PAWQ940031 
PPPOPQG700 
U1vaoq00000 
xO02PPQ845 
P170011390 
P1i7O0010PPP 
P170610PPY 


OP 


14 
11 


11 


08 
08 
11 


08 


08 


ii 
O1 
Og 
ii 
Ol 
09 
Oi 
O01 


14 
11 


14 
11 
15 
14 
11 
15 
14 
11 
08 
09 
08 
08 


AsR 


1003C 
1370 


1691 


1701 
1701 
1380 


1713 


1704 


1420 
1825 
1714 
1450 
1925 
1714 
1703 
1803 


1710 
0000 


OQO00C 
1550 
1719 
‘el elenele 
1550 
1719 
O000C 
1610 
O0020C 
1710 
1700 
1706 


i 


QO 
ra 


NCco 


Oo coo nac nm oO 


oooaxa moonrneoono 


I 


0 
0 


Qooo 


oOo ooo 0ocoo 0 


oc ow owo oWooW 


B/S 


1700 
0000 


1490 


O009C 
Q000C 
0000 


1001C 


Q000C 


0000 
0100 
1390 
0000 
0100 
1420 
0001 
Q0ee 


1713 
0000 


1702 
0000 
0031 
170¢e 
09000 
0031 
1700 
0000 
1845 
1390 
0000C 
Q0003C 


L 


1 
Q 


ore 


KF Wer Or eS © 


QO ~~ 


I 


0 
0 


OW Ww 


cooocooc°o 


Qdooooconocee 


LINE 


O3e9 
0330 
0331 
0332 
0333 


0335 
0336 
0337 
0338 


0340 
0344 
0342 
0343 
0344 
0345 


0347 
0348 
0349 
0350 


0352 
0353 
0354 
0355 


0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 


0369 
0370 


0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 


LABEL 


* STEP 


» STEP 
* 


STAT30 


* 
* STEP 
» 


STAT35 
s 
*» STEP 
* 


STAT4O 
* 
* STEP 
* 


STAT45 


STATS50 


STAT55 


rt 


* STEP 
* 


STATEX 


BCLEAR 


STAT60 


UPCODE QPERAND(S) AND/OR COMMENTS 


BC 


53 


BC 
54 
MC 
MC 
BC 


55 


MC 


56 


MC 


97 


*ECB+3(1)04 
STAT35(2) 


BCLREX+11(6),8CLEAR(5) 


D2tB9(s3) 


De (BASE (23) 
STAT40(5) 


K2,tECB+1 


Ns # BASE (se) 


STATSO(5) 
ERR7(2)2100(1) 
K5eSTAT4S 
STAT55(5) 
ERR8(2)2100(1) 
K5sSTATSO 
M(O)s1(3) 
ERR6(0)se2(1) 


ZEROS (1)sK2 
0(5) 


*BASE(1I3I4E 
STAT60(2) 
BF2ADRs X3 
(BASE (Ls3)eF 
STAT60(2) 
BF2ADR, X3 
*BASE(1ls3iaa 
STAT65(5) 


1810410(80s3)s2ERR7A 
ZEROS(1)2STAT4S 


As ?tBASE(s3) 
V2tB9(,3) 


ARE WE READING OR WRITING 
READING 


BRANCH TO CLEAR XMIT BFS SUBR 


SET DLE=EQT CODE IN WRITE FLAG 
SET XMIT BUFFER READY TO GO 
BRANCH TO RESET PSB 


SET DLE*EOT CODE IN READ FLAG 


RESET PSB TO NORMAL 


BRANCH UNLESS REPORT SWITCH( VAR 0) 
REPORT FIRST XMIT BUFFER 

RESET REPORT SWITCH 

BRANCH UNLESS REPORY SWITCH(VAR#0) 
REPORT @ND XMIT BUFFER 

RESET REPORT SwITCH 

CARRIAGE RETURN TO WORK STATION 
REPORT INH SW AND PSB SETTINGS 


SET CC#i FOR STATUS RESTART 
EXIT TO RETURN ADORESS 


IS THE ERROR IN THE 1ST XMIT BUFF 
YES SO POINTER JS CORRECT 

ELSE LOOK AT THE UTHER BUFFER 

IS ERROR IN @ND AMJT BUFFER 

YES SO POINTER NOW [IS CORRECT 
ELSE RESTORE POINTER TO ORIG POSN 
IS 1ST XMIT BUFF AVAILABLE? 

YES 

SET UP REPORI 

AND SET UP REPORT SWITCH 

SET XMIT BUFF AVAIL AGAIN 

WRITE FLAGSNURMAL 


PAGE 
SEQ. 


3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 


0010 


LOCN 


1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 


1i/e4s/71 
INSTR/DATA 


PPPS141/19 
PPPOPQQ70V 
RivxQgo0000 
XOO2PPLY45 
P170011420 
P170610PPY 
P1L70Q010PFPR 
PQWU940031 
WOPPQUOO00DN 


("C2 } 


UF 


15 
14 
a4 
U8 
Ug 
08 
US 
LS 
il 


A/R 


L 


coc 


Cccrock ow rn 


I 


oO DO COWDWO 


s/s 


1719 
1700 
OO00 
1945 
1420 
OO0093C 
GOO00C 
0031 
enerene) 


L J] LINe 


Ore 


OFrrRPrPR OS 


0385 
0386 
0387 
0388 
C389 
0390 
0391 
0392 
0393 


LABEL OPCODE OPERAND(S) 


STAT6D X 
C 
BE 
MC 
MN 
MC 
MC 

STAT7O X 

BCLREX BC 


X 3, BF 2ADR 

(BASE (Lsa3)aa 
STAT7O(2) 
1B10410(80s3)sERRBA 
ZEROS(1)e9STATSO 

V2 tB9(53) 

As ?tBASE(s3) 
BF2ADRs X3 

0(5) 


PRUGRAM LISTING FUR USER APPLICATION PROGRAM FOR DIAL@=CALLING STATION 


AND/OR COMMENTS 


XCHANGE XMIT BUFF POINTERS 

IS @ND XMIT BUFFER AVAILABLE 

YES 

SET UP REPORT 

SET UP REPORT SWITCH 

WRITE FLAG#NURMAL 

BSB=AVATLABLE 

XCHANGE BUFF POINTERS BACK AGAIN 
EXIT FROM BUFF CLEAR SUBR 


PAGE 
SEQes 


3950 
3960 
3970 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 


4140 
4150 
4160 
4170 
4180 
&1 390 


4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 


4350 
4360 
4370 
%380 
4390 
&400 
4410 
4420 
4430 
4440 
4450 


oo1i1 
LOCN 


1700 
1700 
1700 


1700 
1701 
170e 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1713 
1714 
1715 


1719 
1723 
1727 
1728 
1734 
1737 


1738 
1758 
1779 


-1793 


1803 
1818 
1824 
1825 
1845 


1925 


1945 
2025 
2055 


2056 
2061 
2065 
2069 
2078 
2082 
2086 
2095 
2099 
2119 
2159 


11/24771 (402) 


INSTR/DATA UP 


InMovwdx ZE< O ZIEMoOY 
o 
oO 


© 
o 
oo 
© 


160P 
190P 


CALLNO 
OOE 


INITIALISA 

CARD READE 

NO CALL NO 

DIAL ERROR 

INHIBIT Sw 
PSB 


XMIT BUFF 
XMIT BUFF 


NO DATA FO 


BCOD1 
150P 
160P 
Z 
170P 
190P 
Zz 
0082 


65CALLERHE 


A/R 


o001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 


0001 
0001 
0001 
0001 
0001 
0001 


ooQgl 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
o0o1 
0001 
0001 
0001 


0001 
0001 
o001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 


PROGRAM 


LISTING FUR USER APPLICATION PROGRAM FOR DIAL@CALLING STATION 


B/S 


0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0003 
0001 
0001 
0004 


0004 
0004 
0001 
0006 
0003 
0001 


0020 


Q021 
0014 
0010 
0015 
0006 
0001 
0020 
0080 
9020 
0080 
0030 
0001 


0005 
0004 
0004 
0009 
0004 
0004 
0009 
0004 
0020 
0040 
0040 


L I LINE 


0395 
0396 
0397 


0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
O4le 


0414 
0415 
0416 
0417 
0418 
0419 


0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 


0435 
0436 
0437 
0438 
0439 
0440 
0444 
0442 
0443 
0444 
0445 


LABEL 


% 


OPCODE OPERAND(S) AND/OR COMMENTS 


* LABELS USED BY UAP 


zc o2z trop 


x< 


QM 
ZEROS 
Ke 
KS 
KON80 


BF2ADR 
BF4ADR 
FRSTWT 
CALLNO 
QPCON 
FUNC 


ERR1 
ERRe2 
ERR3 
ERR4 
ERR6 
ERRG6A 
ERR6B 
ERR? 
ERR7A 
ERR8 
ERRBA 
ERR 
SPACE 


MAIL 
BUFS 


IDEN 


DM 
OM 
DM 
DM 
OM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 


DM 
DM 
DM 
DM 
DM 
DM 


DM 
DM 
DM 
DM 


DM — 


DM 
DM 
DM 
DOM 
DM 
DM 
DM 
DM 


DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 


Cita? 
c1'D! 
C1te? 
Cit 
C1tnt 
citat 
city? 
Ci‘wt 
Ci'ixt 
Clr 
c3'000! 
cite’ 
cits? 
C4'0080' 


A'BUFF2! 

A'BUFF4! 

cit FIRST WRITE SWITCH 
Ce'CALLNO! 

C3!00E! 

cit 


C2O'INITIALISATION ERROR! 
C2i'CARD READER NOT READY! 
Ci4'NO CALL NO! 

C1IO'DIAL ERROR! 
CiS'INHIBIT SWITCH ! 


Cé' PSB I 
cit q 

C2O'XMIT BUFF OVERWRITE ! 
c8o' ! 

C20'XMIT BUFF OVERWRITE ! 
cso! ' 


C30'NO DATA FOLLOWING CALLNOW CARD! 
cit ¢ 


C5'BCOD1! 
A'BUFF1! 
A'BUFF2! 
cotZz! 
A'BUFF3! 
A'BUFF4! 
cgrzi 
c4!0082! 
c20o!' 3 
C40'65CALLERHELLOZ! 
c4#o' 3 


PAGE 0012 11/24/71 (4802) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL@CALLING STATION 


SEQ@e LOCN INSTR/DATA UP ayR LI B/S LI LINE LABEL OPCODE QPERAND(S) AND/OR COMMENTS 


4470 2199 0447 

4480 2199 0448 »* 

4490 2199 0449 » LABELS IN COMMON REQUIRED FOR SCA ROUTINES 

4500 2199 0450 »* 

4510 2199 0451 »#* 

4530 OO000C . 0453 COMMON 

4540 OOOOC OOOP 0454 ORG 0 

4550 OO00C &&&=#"000 0007 0009 0455 DM 7C9'&SK2=e000! DUMMY TO SHOW UP IN OBJECT DECK 
4560 0063C OOO0P 0456 ORG 0 

4570 OQO00C 0001 0001 0457 ¢BASE DM C1 

4580 OO0O1C 0001 0002 0458 61 DM C2 

4590 0003C 0001 000e 0459 DM C2 

4600 OO005C 0001 0004 0460 1B5 DM C4 

4610 OO09C 0001 0001 O461 ¢B9 DM Gi 

4620 0010C . 0001 0c001 0462 ¢810 DM Ci 

4640 0011C 0109 0464 ORG 101 

4650 O101C 0000 0004 0465 ¢K101 #£OM Ooc4 

#670 O101C 056P 0467 ORG 560 

4680 0560C © 0000 0020 0468 ¢f¢IMSG DM oc20 IDLE MESSAGE 

4690 0560C | 0001 0020 0469 ¢STAT DM c20' ! PARTITION STATUS BYTES 

4700 O580C A oooi 0005 0470 ¢tMAIL DM CStAt MAIL@BOX#AVAILABLE AT LOAD TIME 
4710 0585C 0001 0017 0471 SEND DM C17 +5 «TRANSMIT BUFFERS 

4720 0602C 0001 o0e21 0472 ¢*SINK DM cai +2P2mRECEIVE BUFFERS 

4730 0623C 0001 0020 0473 DM c20 +43=eDIAL DATA (NUT USED HERE) 
4740 0643C O001 0099 0474 ¢IDEN DM C939 | +63 ID DATA 

4760 0742C 0476 * VARIABLE LOCATION REFERENCES 

4780 0742C 100P 0478 ORG 1000 

4790 1000C 0000000000 ooo! 0018 0479 ¢ECB DM C18'000000000000000000'! COMMUNICATIONS CONTROL BLOCK 
4800 1018C 1O05P 0480 ORG 1050 

4810 1050C 0000 0044 0481 ¢Cwa DM OC44 

4820 1050C A 0001 0080 0482 ?vIDLEB OM C8O'A! 

4840 1130C 150P 0484 ORG 1500 

4850 1500C A 0001 0029 0485 BUFF1L ODM C2o'at 

4860 1520C - 0001 0080 0486 DM C80 

4870 1600C A 0001 0020 0487 BUFF2 0M Ce2o'at 

#880 1620C ooo1 0080 0488 DM C80 

4890 1700C A oooi 0020 0489 BUFF3 DM C20!rA! 

4900 1720C 0001 008e 0490 . DM C82 

4910 1802C . 190P 0494 ORG 1900 

4920 1900C A 0001 0020 0492 BUFF4 DM Ceo'rat 


4930 1920C | 0001 0082 0493 DM C82 


PAGE 0013 11/24/71 (4"02) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL#CALLING STATION 
SEQe LOCN JINSTR/DATA UP avyR LY A/S LI LINE LABEL OPCODE OPERAND(S) AND/OR COMMENTS 


4950 2002C 0495 END 


PAGE 0001 


DEF e 
0399 


0373 


0393 


0414 
0415 
0485 
0487 
0489 
0492 
0436 
0417 
0400 
0043 
0061 
0068 
0070 
0076 
0085 
0100 
0110 
0126 
0142 
0165 
0189 
0194 

(0217 
0223 
0230 
o242 
0258 


0401 | 


0421 
0422 
0423 
0424 
0425 
0426 
0427 


0428 


0429 
0430 
0431 
0432 
0416 
0419 
0444 
0410 
0411 
0412 
0402 


0435 


0403 
0418 
0404 
0408 


SYMBOL 
A 


BCLEAR 
BCLREX 
BF2ADR 
BF4ADR 
BUFF 1 
BUFF2 
BUFF3 
BUFF 4 
BUFS 
CALLNO 
D 
DIALOO 
DIALOS 
DIAL10 
OIAL15 
DIAL20 
DIAL25 
DIAL30 
DIAL35 
DIAL37 
DIAL40 
OIAL45 
DIALS5S 
DIAL60 
DIAL65 
DIAL70O 
DIAL75 
DIAL&O 
DIAL&5 
E 


ERR1 


ERR2 
ERR3 
ERR4 
ERRGE 
ERR6A 
ERR6B 
ERR7 
ERR7A 
ERR8 
ERRSA 
ERR 
FRSTwT 
FUNC 
IDEN 
Ke 

K5. 
KON&8O 
M 

MAIL 

N 
OPCON 
Q 

QM 


11/24771 CROSS REFERENCE LISTING FOR USER APPLICATION PROGRAM FOR DIAL@®CALLING STATION 


oe POSE HEC Re ge ee teense s ee oREFERENCE Se oo toca ere ve tent og oe esee?e 


0032 
0383 
0290 
0290 
0171 
o271 
0014 
0414 
0010 
0237 


0094 
0166 
0062 
0044 
0090 
0076 
0068 
0071 
O0U69 
0095 
0137 
Qle7 
0147 
0116 
0218 
0197 
0195 
0153 
0253 
0243 
0043 
0055 
0079 
0103 
Qe03 
0364 
0284 
0285 
0358 
0381 
0361 
0388 
0159 
O1e1 
0110 


0347 
0077 
0165 
Q054 
0038 
0027 
0307 


0230 


0070 


0049 
0386 
0335 
0335 
0215 
0436 
0437 
0236 
O415 


0189 


0137 
0080 
0077 
01006 
0101 


0177 


0183 


0272 


0196 


0323 
0324 


01i5e 
0115 


0369 
01014 


0078 


0313 


0061 
Q391 


0375 


0439 
0440 


0194 


0160 


0104 


0224 


0242 


0176 
0208 
012i 
010e 


035e 


0126 


0378 


0231 


0209 


0373 


0182 
0223 


0359 


0158 


0214 0236 0237 0266 0329 0379 
0385 0392 

0340 0341 

0216 0218 0253 

0376 

0362 

0202 0363 


PAGE 0002 11/24/71 CRUSS RFFERENCE LISTING FOR USER APPLICATION PROGRAM FOR DIAL#CALLING STATION 
DEF e SYMBOL woe e reer e ere ee eeee en ee HREFERENCESs est eo cece teeter eeeeces 


0433 SPACE 0260 

0307 STAT15 0296 

0313 STAT20 0279 

0340 STAT30 

0347 STAT35 0330 

0352 STAT4O0 0302 0308 0342 
0357 STAT45 0359 0382 

0360 STAT5O 0357 0362 0389 
0363 STAT5S 0360 : 
0379 STAT60 0374 0377 

0385 STAT65 0380 

‘0392 STAT70 0387 

0370 STATEX 0132 0217 0248 0318 
0278 STATUS 0132 0217 0248 


0405 Vv 0384 0390 
0406 WwW 0115 0208 0223 0295 
0407 xX - 
0010 X 1. 0271 
0012 x2 . 0026 
0014 x3. 0171 0215 0375 0378 0385 0392 
0409 ZEROS 0020 0068 0069 0152 0176 0182 0278 0301 0369 0382 
a a 0389 
0458 tB1 bs 
0462 *B10 0142 0259 Q260 0261 0261 0381 0388 
0460 ¢B5_ 0.165 0258 
0461 tB9 0230 03490 0384 0390 


0457 ¢BASE O027 0126 0166 0214 C231 0242 0266 0285 0313 0324 
0341 0352 0373 0376 0379 0383 0386 0391 


0481 tCwA 0085 0094 9110 0189 0196 
0479 tECB 0020 0026 0043 0194 0278 0284 0295 0301 0307 0323 
0329 0347 


0474  tIDEN 
0482 tIDLEB 
0468  tIMSG 
0465 ¢tK1i01 . 
0470 fMAIL 0032 0038 0049 0061 
0471 SEND | 

0472 ‘tSINK 

0469 ¢tSTAT 0012 


APPENDIX B 
LISTING OF SAMPLE DIAL=-CALLING UAP PRESENTED IN SECTION 6 


SCAM DIAL 
SINGER RESTRICTED - ADVANCE COPY — 12/71 


PAGE 0001 11724/71 (4=02) LABEL TABLE FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 
LABEL LOC LNTH INDX MESSAGES 
A 1142 O1 O 
BUFF 4 t1500C 20 0) 

BUFF2  1600C 20 0 
CARRET 1712C 01 fe) 
OO 1143 01 4) 
DIALOO 0370 10 O 
DIALO5S 0440 10 fe) 
E 1144 01 @) 
ERR1 1159 20 0 
ERR3 1179 17 ) 
ERR3A 1196 01 0 
ERR4 1197 17 0 
ERR4&A 1214 01 0 
IDEN 1093 40 0 UNUSED 
KON80 1155 04 9) 
M 1712c O1 0 
MAIL 1030 05 fe) 
N 1145 O1 0 
ONE 1153 01 0) 
Q 1146 01 0 
QM 4141 01 ¢) 
READ 0460 10)—Ct—é«‘“ 
READOS 0470 10 0 
READIO 0500 10 QO 
READ15 0540 10 Q- 
SPACE 1140 01 QO 
STAT 1133 O4 0 UNUSED 
STATOS5 0800 10 0 
STAT10 0820 10 0 
STAT15 0860 10 Q 
STAT20 0880 10 0 
STAT25 0990 10 0) 
STATEX 0870 10 0 
STATUS 0740 10 0 
TCON 1137 03 0 
TWO 1154 O1 ) 
Vv 1147 01 #4O 
W 1148 O41 0 
WRITE 0570 10 0 
WRTEOS 0610 10 0 
WRTE1G 0620 10 re) 
WRTE15 0670 10 0) 
WRTE2ZO 0710 10 0 

xX 1149 o1 0 
X4 0011 04 OQ UNUSED 
x2 0021 O4 QO 
x3 0031 04 <0 UNUSED 
ZEROS 1150 03 O , 

'Bi 0001C v2 0 UNUSED 

4B10 oo10c 01 0 
185 oo05c 04 fe) 
¢B9 oo009c 01 fe) 
tBASE ecoo0ec 01 0 
tECB 1000Cc 18 re) 

+ IDEN 0643C 99 9) UNUSED 
ftIDLEB 1018C 44 6) UNUSED 


PAGE 0002 11/24/71 (402) 


LABEL 


fIMSG 
#K101 
tMAIL 
*SEND 


*SINK 


9 STAT 


LOC 


106eC 
0101C 


‘0580C 


0585C 
0602C 


~ 0560C 


62 LABELS 


LNTH INDX 


20 
04 


05 
17 


21 


20 


cocoooco 


LABEL TABLE FUR USER APPLICATIUN PROGRAM FOR DIAL ANSWER 
MESSAGES 


UNUSED 
UNUSED 


UNUSED 
UNUSED 


PAGE 
SEQe 


0020 
0030 
0040 
9050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 


0150 
0160 
0170 
0180 


0200 
0210 
0220 
0230 
0240 


0260 
0270 
0280 
0290 
0300 


0320 
0330 
0340 
0350 
0360 


0380 
0330 
0400 
0410 


0430 
0440 
0450 
0460 
0470 


0490 
0500 
0510 
0520 
0530 


0550 


0001 
LOCN 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0011 
0015 
o0e1 
0025 
0031 


0035 
0300 
0300 
0300 


0300 
0310 
0320 
0320 
0320 


0320 
0330 
0340 
0340 


0340 


0340 
0350 
0360 
0360 
0360 


0360 
0370 
0370 
0370 


0370 
0380 
0390 
0390 
0390 


0390 
0400 
0410 
0410 
0410 


0410 


11/24/71 


INSTR/DATA 


150P 
OS56P 


160P 


PQPOV21150 


SOSRO80300 


2QpPVv400el 
P114510P0P 


PPUSP1114e 
ROSVO80340 


P10300058P 


POPOP11144 


ROSYOS044Q 


P11421058P 
P11501100P 


017GR30001 


(4°02) 


UP 


14 
11 


O7 
08 


14 


08 


14 
11 


08 
08 


O1 


A/R 


0011 
ooo1 
o0e1 
0001 
0031 
0001 


0300 


1006C 
0320 


1Q06C 
1145 


0580C 
0360 


1030 


1000C 
0390 


lise 
1150 


1712eCc 


L 


W SC 


oO nM 


mM c 


Oc 


I 


B/S 


0004 
0004 


0004 


1150 


0300 


0021 
o000Cc 


1142 
0340 


0580C 


1144 
0440 


O580C 
1000C 


0001 


tL I LINE 


oc ™ 


re 


gi = 


> poe 


oO 


0002 
0003 
0004 


0005 


0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 


0015 
0016 
0017 
0018 


0020 
0021 
0022 


0023 


0024 


0026 
0027 
0028 
0029 
0030 


003e 
0033 
0034 
0035 
0036 


0038 
0039 
004Q 
0041 


0043 
0044 
0045 


0046. 


0047 


0049 
0050 
0051 
0052 
0053 


0055 


LA 


xxx xk & 


X1 


Xe 


*« 


* 


« 


* 
DI 


* 
+ 


* 


PROGRAM LISTING FOR USER APPLICATION 


BEL OPCODE 


SAMPLE USER 


NORMAL 
ORG 

DM 

ORG 

DM 

ORG 

DM 


ORG 


STEP 1 


STEP e 


STEP 3 


STEP 4 


STEP 5 
ALOO C 


STEP 6 


PROGRAM FOR DIAL ANSWER 


OPERAND(S) AND/OR COMMENTS 


APPLICATION 

0011 

A'BUFF1! 

0021 

A'¢STAaT! ADDRESS OF PSB!IS 

0031 

A'BUFF2! 

0300 

tEC8+6(2)4ZEROS IS SCA ACTIVE? 

*410(3) 2401018) IF NOT WAIT FOR IT 

tECB+6(2) 4X2 COMPUTE SCA!S PSB AND SET IN xe 
No # BASE (22) SET SCA'S PSB TO NORMAL 
*MAIL(1)0A IS MAILBOX AVAILABLE? 
#410(2)28%810(8) IF NOT WAIT FOR IT 

MAIL (100) 9 ¢MAIL MOVE INIT RECORD TO MAIL =BOX 


WAS THERE INIT ERROR? 
IF NOT BRANCH 


*ECB(1)+4E 
*+4#10(2) 207 AL05(5) 


As tMAIL RESET MAIL*BUX AVAILABLE 
ZEROS(1)2tECB AND INHIBIT SWITCH 


M{O)s21(3) CARRIAGE RETURN TO WORK STATION 


PAGE 
SEQe* 


0560 
0570 
0580 
0590 
0600 


0620 
0630 


0002 
LOCN 


0420 
0430 
0440 
0440 
0440 


0440 
0450 


INSTR/DATA UP asR 


011U9100e20 O01 1159 


USYYQO0000 


PPUSP11142 
ROTVO80370 


11 9990 


14 O580C 
11 0460 


L 


0 
5 


NM © 


I 


0 
0 


B/S 


0020 
0000 


1142 
0370 


-= 


I 


0 
0 


LINE 


0056 
0057 
00528 
0059 
0060 


0062 
0063 


LABEL OPCODE 


Ww 
BC 
& 
*» STEP 8 
* 


DIALOS C 
BC 


(MAIL( 1) A 


11724771 =(4"02) PRUGRAM LISTING FUR USER APPLICATION PROGRAM FOR DIAL ANSWER 


OPERAND(S) ANO/OR COMMENTS 


ERR1(0)220(1). REPORT ERROR 


9990(5) BLOW UP 


IS INIT COMPLETE? 
#+10(2)sDIAL00(8) YES 60 ONsELSE WAIT FOR INIT 


PAGE 
SEQas 


0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 


0810. 


0820 
0830 
0840 
0850 
0860 
0870 
0880 


0890 


0900 


0910 


0003 
LOCN 


0460 
0460 
0460 
0460 
0460 
0470 
0470 
0470 
0470 
0480 
0490 
04390 
0490 
0490 
0500 
0510 
0520 
0530 
0540 
0540 
0540 
0540 
0550 
0550 
0550 


0550. 
0560 


11/24/71 


INSTR/DATA 


P114210PPP 


PPPOPQU144 
ROTYQS0540 


POOPUTP506 
2ZOORPUP100 
P114010PRP 
YOO2@PYPPRY 
UOTVO00000 


VOXW150740 


QOTVO030570 
xOTWOQO0000 


(4=02) 


OP 


08 


11 


1i 
il 


AsR 


1142 


QO000C 
0490 


OO005C 
0020C 
1140 
o0e20C 
0460 


0871 


0460 
0470 


L 


~m Oo 


oOwonc 
OW OD w W 


co 


I 


B/S 


COOQ0C 


1144 
0540 


0506 
0100 
Qg0e0C 
oo0e1C 
0000 


0740 


0570 
0000 


L I LINE 


ole 


Ow ew & 


oO Ww 


CWwWWoOoOc 


0065 
0066 
0067 
0068 
0069 
0070 
oo74 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0084 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 


LABEL 


PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 


UPCODE QPERAND(S) AND/OR COMMENTS 


INITIALISATION HAS BEEN SUCCESSFULLY COMPLETED 


STEP 


STEP 


% 
* 
& 
& 
READ 
# 
* 
* 
R 


EADOS 


REAVIO 


c ) 
*» STEP 
% 
READI5 
* 
* STEP 
* 


bs] 


MC 


As tBASE (23) SET READ BUFFER AVATLABLE 


(BASE(Ls3)aE 


IS READ BUFFER FULL 
¥4+10(2)sREAD15(5) 


IF NOT BRANCH 


SET BUFF LENGTH IN PRINT INSTRNe 
PRINT READ BUFFER 
CLEAR UUT READ BUFFER 


(BS (453) sREADIO+6 
1810+10(283)5,100(1) 
SPACE s?B10#10(23) 
1B810410(9943)2tB810+11(43) 
READ(5) 


BRANCH & LINK TO STATUS ROUTINE 


STATEX4+1(6),S5TATUS(5) 


ERROR OR EOQT 
NORMAL 


READ(1)aWRITE(3) 
READO5(8) 


PAGE 


SEQe 


0930 
0940 
0950 
0960 


0970 


0980 
0930 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


-1160 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1270 


1280 
14290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1330 
1390 
1400 
1410 
1420 


0004 
LOCN 


0570 
0570 
0570 
0570 
0570 


0580 | 


0580 
0590 
0590 
0590 
0590 
0600 
0610 
0610 
0610 
0610 
0610 
0620 
0620 
0620 
0620 


0620. 


0630 
0640 
0640 
0650 
0660 
0670 
0670 
0670 
0670 
0680 
0690 
0690 
0690 
0690 
0690 
0700 
(0700 
0700 
0700 
0710 
0710 
0710 
0710 


0710. 


07140 
0710 
0720 
0730 


11/24/71 


INSTR/DATA 


1117130001 


TOUYOSO61U. 


P141503100P 
UOTVO0O000 


P11373100P 


1002P1P080 
SOwG010620 


P1147100PY 


P1155400PU 
P1143100PP 


PPPOP1Q142 
ROVROVOUOU 


VOXW190740 


QO0TVO80670 


P114610GPY 


P1143100PP 
LOTVQVO000 


roe} 


JP 


Ol 


ll 


08 
il 


08 


00 
il 


08 


08 
VS 


14 
11 


11 


11 


O08 


08 
Lt 


As. 


1141 


C590 © 


1137 
0710 


1137 


0020C 
0710 


1147 


1155 
1143 


OO0OC 


0620 


0871 
0460 
1146 


1143 
0460 


L. 


Fos 


J 


aD 


0 


G 


R/S 


1Q00C 


0080 
0620 


o009C 


Q005C 
OO00C 


1142 
0000 


0740 


0670 


Q009C 


OOO0O0C 
0000 


L I LINE 


+e 


Cor 


Oe » 


0093 
0094 
0095 
0056 
0097 
Coys 
GU3S9 
01G0 
0101 
010e 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
QO111 
Ollie 
0113 
O114 
0115 
0116 


0117 


0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
O141 
0142 


LABEL OPC 
* 
* 
* STEP 14 
we 
wRITE w 
+ 
BC 
*% 
* STEP 15 
* 
MC 
BC 


THERE IS 


STEP 16 


* 
*¥ 

» 

¥% 

WRTEOS MC 
* RESET 
* 

* STEP 17 
¥ 
W 


RTE1O-R 
BC 
MC 


MC 
MC 


STEP 


* STEP 
BC 
STEP 21 


* 
¥ 
¥ 
* NO MORE 
* STEP 22 
* 
WRTE2O MC 
MC 
BC 


ODE OPERAND(S) 


OM(1)s103). 


¥+410(4)sWRTEOS(5) 


ZERO ,4ECB 
READ(5) 
SOMETHING TO SEND 


TCONs tECB 
S INH SW& RD FG, 


#810410(1e1),80(1) 
WRTE2O( 3) 9 %210(1) 


vetS89(,1) 
KONS0s?B5(41) 
Ds» tBASE(s1) 


(BASE(Lal)ga 
WRTE10O(2) 


OP CD#D 


PROGRAM LISTING FOR USER APPLICATIUN PROGRAM FOR DIAL ANSWER 
AND/OR COMMENTS 


EQT IS RECOGNISED INVITING THIS COMPUTER TO SEND 


IS CARD READER READY IE ANYTHING 
TO SEND | 
If SO BRANCH TO STEP 16 


ELSE SET INH SWITCH ZERUs READ 
FLAG ZERO & UP CULE D 
GO TO STEP 2e 


READ CARD FRUM CU@READER TO XMITBF 
FLAG INDICATES NO MORE DATA#Go TO 
STEP 22¢ TRY AGALN ON ERROR 

WRITE FLAG # NORMAL 

CHAR COUNT IN BUFF PREF 5@8 =» 80 

D IN BSB TO POST BUFFER FULL 


HAS TRANSMIT BUFFER GONE Orke 
IF SO GO BACK FOR MORE DATA AT 
STEP 17+¢ NOTE*READ COMMENTS AT 
STEP 21 

CARD READER 


STATEX+1(6),STATUS(5) BRANCH & LINK TU STATUS SUBROUTIN 


READ(1) eWRIELS(8&) 


DATA TO SEND 


Qst#B9(e1) 
Ds tBASE(s1) 
READ(5) 


ERROR OR NORMAL 


NOT APPLICABLE WERE AS FLAG FOR NO 
MORE DATA TO SEND RECEIVED AT STEP 
17 FROM CARD REAVER 


EOT IN WRITE FLAG 
D IN BSB 
GO BACK [TO SIEP 9 


PAGE 
SEQe 


1440 
1450 


1460 


1470 
1480 
1490 
1500 
1510 
1520 


1540 
1550 
1560 


1580 
1590 
1600 
1610 
1620 


1640 
1650 
1660 
1670 
1680 
1690 
1700 


1720 
1730 
4740 
1750 


1760 


1780 
1790 
1800 
1810 
1820 
1830 


1850 
1860 


1870 


1880 


1900 
1910 
1920 
1930 
1940 


1960 
1970 


0005 
LOCN 


0740 
0740 
0740 
0740 
0740 
0740 
0740 
0740 
0740 


0740 
0740 
0740 


0740 
0750 
0760 
0760 
0760 


0760 
0770 
0780 
0790 
0800 
0800 
0800 


0800 
0810 


0820 


0820 
0820 


0820 
0830 
0840 
0850 


0850. 
0850. 


0850 


0860 


0860 
0860 


0860 
0870 
0880 
0880 
0880 


0880 
0890 


11/24/71 


(4*Q?) 


INSTR/DATA UP ayR L I 


PaPoP11150 
ROxxo00000 


PQPOP11148 
ROXP000000 


PQPOP11149 


ROXPOS0820 


PQQ5311150 
UOxwOO00000 


Pioopiilei4 
017QR30001 
O11Y¥710012 


P11503100P 


PQQ5011153 
UOPPOOOO0Y 


PPPOPW1145 


14 
11 


14 
11 
14 
11 


14 
il 


08 
QO1 
01 


08 


14 
il 


14 


1000C 
0880 


1000C 
0800 
1000C 
0800 


1153 
0870 


1000C 
171ec 
1197 


1150 


1150 
0000 


0o000C 


™—M~ Oo 


Non eo 
oooc 


Oo 


Oooo 
oOo} 


Oo 


B/S 


1150 
0000 


1148 
0000 
1149 
0820 


1150 
0000 


1214 
0001 
0018 


1000C 


1153 
0000 


1145 


L I LINE 


Oe © & 


™ OW) 


oocec 


coo 


0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 


0154 
0155 
0156 


0158 
0159 
0160 
0161 
0162 


0164 
0165 
0166 
0167 
0168 
0169 
0170 


0172 
0173 
0174 
0175 
0176 


0178 
0179 
0180 
018] 
0182 
0183 


0185 
0186 
0187 
0188 


0190 
O19] 
0192 
0193 
0194 


0196 
0197 


LABEL 


xk «kK ke kK K kK *X 


* STEP 


STATUS 


STEP 


x 


% 
*» STEP 
% 


STATO5 


* 
* STEP 
*% 


STAT10 


* STEP 


* STEP 
as 


STAT1I5 
STATEX 
8 
* STEP 
* 


STAT20 
% 


PRUGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 


OPCODE OPERAND(S) AND/OR COMMENTS 


23 


29 


C 


STATUS SUSROUTINE PERFORMED 3} 


THREE POSSIBILITIES FOR EXIT? 


fECB(1)eZEROS 
STAT20(2) 


tECB(1)aW 
STATOS(2) 
#ECB(1) eX 
™410(2)eSTAT10(5) 


ONEs ZEROS 
STATEX(5) 


1ECB(1)sERR4GA 
CARRET(0O)a1(3) 
ERR4(0)218(1) 


ZEROS» ¢ECB 


ZEROS(1)+20NE 
0(5) 


*BASE(122)4aN 


1)WHILST wAITING TO BE CALLED 
2)WHILST READING DATA 
3)WHILST WRITING DATA 


1)NORMAL*®CONVDITION CODE #2 

2)EOT RECEIVED WHILST READING 
CONDITION CUDE #3 

3)ERROR RECELVED*sCONDITION CODE #1 


IS INHIBIT SWITCH SET? 
IF NOT BRANCH 


YES SO IS IT EOT RECEIVED?(X OR W) 


IF NOT IT'S AN ERROR SO BRANCH 


POST STATUS#BEOT RECVD,CCa3 
EXIT TO CALLING ADDRESS 


MOVE INH SW CODE TO ERROR REPORT 
CARRIAGE RETURN TO LINE PRINTER 
REPORT ERROR ON WORK STATION 


RESET INH SWITCH 


POST STATUSSERROR CCH#i 
EXIT TO CALLING ROUTINE 


IS PSB SET TU OTHER THAN NORMAL? 


0006. 


LOCN 


0890 
0890 


0890 
0900 
0900 
0900 


0900 
03910 
0920 
0930 
0930 
0930 


0930 
03940 
0940 
0940 


0940 
0950 


0960 


0370 
03980 


0990 


1000 
1010 
1010 
1020 


11/24/71 (4902) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 
INSTR/DATA OP ayR LI B/S LI LINE LABEL UPCUDE QPERAND(S) AND/OR COMMENTS 


0198 »* STEP 30 


0199 » 
ROxWOU0000 11 0870 20 0000 00 O201 BC STATEX(2) IF NOT EXIT STATUSsNORMAL CC#=e2 
0202 * 
0203 »* STEP 31 
0204 -» 
POOOPW1196 U8 QV00C 0 2 1196 1 0 0206 MC (BASE (122) sERRBA MOVE PSB TO ERROR REPORT 
017QR30001 01 1712C 0 0 Q001 3 0 0207 W CARRET(0)01(3) CARRIAGE RETURN TO WORK STATION 
011w910018 01 1179 0 0 0018 1 0 0208 W ERR3(0)918(1) REPORT ERROR 
0209 *» 
0210 »* STEP 32 
O211 »* 
P114520POP U8 1145 0 0.0000C 1 2 0213 MC Na BASE (22) RESET PSB TO NORMAL 
0214 -* 
0215 »* STEP 33 
0216 »* STATUS EOT 
PQPOR11143 14 109002C 0 0 1143 1 0 0218 C tECB+2(1)e0 ARE WE WRITING 
ROYVOSO990 11 0960 20 0990 50 0219 BC ¥+410(2)eSTAT25(5) IF NOT BRANCH 
P1143100PY 08 1143 0 0 0009C 1 1 0220 MC Oe tB9(s1) DLE*EQT IN WRITE FLAG FOR HANG UP 
P1143100PP 08 1143 0 0 QO000C 1 1 O221 MC D»e f BASE (+1) POST TRANSMIT BUFFER FULL 
UOXxVO00000 11 0860 5 0 0000 O 0 0222 BC STAT15(5) BRANCH TO SET ERROR STATUS 
paposil1i42 14 1903c 0 0 1142 1 0 0223 STAT25 C tECB+3(1) 24 ARE WE READING? 
R1PQ050860 11.1010. 2 0 0860 5 0 0224 BC #+10(2)sSTATI5(5) IF NOTsSCA NEVER LEFT HAND@SHAKING 
0225 -« SO NO NEEO TO SEND OLE=E0T 
P1i15411000 08 1154 0 0 1001C 1 0 0226 MC TWOP FECB+4 SEND DLE*EOT IN READ FLAG 
uOxvo00000 11 0860 5 0 0000 O 0 0227 BC STAT15(5) BRANCH TO SET ERROR STATUS 


PAGE 
SEQe 


2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2330 


2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 


2520 


2530 
2540 
2550 
2560 


2580 
2590 
2600 
2610 
2620 


0007 


LOCN 


1030 


1030 
1030 
1030 
1035 
1039 
1052 
1056 
1069 
1073 
1093 


1133 
1137 
1140 
1141 


1142 


1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1153 
1154 
1155 


1159 
1179 


1196 


1197 


1214 


11/24/71 


INSTR/DATA UP 


BCOD1 

150P 

Z 

160P 

Z 

0082 
076353651 
56HELLO CA 


O56P 
00D 


Ve OxKx EK OSMoYr-y 


Cc 
Oo 
oo 
oO 


INITIALISA 
TEMPORARY 


PERMANENT 


(4202) 


AsR 


0001 
0001 
0001 
o001 
0001 
0001 
0001 
0001 


0001 


0001. 


0001 
0001 
0001 
0001 
0001 
0001 
ooo1 
0001 
0001 
0001 
0001 
0001 
O001 
0001 


oo01 
0001 
oo001 
0001 
0001 


B/S 


0005 
0004 
0013 
Q004 
0013 
0004 
0020 
0040 


0004 
0003 
0001 
0001 
0001 
0001 
0001 
0001 
0001 


0001 


0001 
0001 
0003 
0001 
Qoo0o01 
0004 


0020 
0017 
0001 
0017 
0001 


L I LINE 


0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 


0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
025e 
0253 
Q254 
0255 


0256 


0258 
0259 
0260 
0261 
0262 


LABEL 


* 


* CONSTANTS FOR DRIVER 


* 
MATL 


PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 


OPCODE QPERAND(S) AND/OR COMMENTS 


DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 


DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 


DM 
DM 
DM 
DM 
DM 


MAIL IS INITIALISATION RECORD 


c5'BspCcoo1' 

A'BUFF1! TRANSMIT BUFFER ADDRESS 
Ci3zi2! 

A'BUFFe! RECEIVE BUFFER ADDRESS 

ae Ge ne 

c4'0082! MAX NO OF GHARS IO BE READ 


C20'076353651' DIAL LENGTH#/DIGITS 6 NO ITSELF 


C4O'S6HELLQ CALLERZ! 


A'¢STAT! . PARTITION STATUS BYTE 

C3'00D' CONSTANT FOR INW SW,RD FG & OP#CD 
cis‘ 

Cit? 

Citat 


Cito 


Cite! 
CLtent 
CisQt 
citvi 
Ci'iw! 
citxt 
c3+'000! 
Citi" 
Citet 
c410080! 


C20'INITIALISATION ERROR! 
C17'TEMPORARY ERROR ! 
ci’! 

C17'PERMANENT ERROR ! 
ci’! 


PAGE 0008 11/24/71 (4*02) PROGRAM LISTING FUR USER APPLICATION PROGRAM FUR DIAL ANSWER 


SEQe LOCN INSTR/DATA UP ayR LI B/S LI LINE LABEL OPCODE OPERAND(S) AND/OR COMMENTS | 


2640 1215 : | | 0264 -* 
2650 1215 te | 0265 x | 7 7 
2660 1215 | , 0266 #* LABELS IN COMMON REQUIRED FOR SCA ROUTINES 
2670 1215 0267 » | | 
2680 1215 7 C268 * 
2700 1215 : 0270 »* FIXED LOCATION REFERENCES 
2720 0000C Qe COMMON 
2730 0000C 000P 6273 ORG 0 
2740 OO000C & 0063 0001 0274 DM 63C1'8! | DUMMY FOR FINDING SCA IN OBJECT DK 
2750 0063C OooP 0275 ORG 0 INDEXED ADDRESSES 
2760 OOOOC 0001 oool 0276 -¢BASE LM C1 BASE = STATUS 
2770 OO001C 0001 0002 0277 981 DM c2 +1 = TO/FROM 
2780 0003C 0001 0002 0278 DM ce 
2790 OO00SC 0001 0004 0279 485 DM C4 +5 = LENGTH 
2800 0009C 0001 0001 0280 +89 DM Ci +9 = TRANSMIT CQDE 
2810 0010C 0001 0001 0251 1810 DM C1 : 7 : 
2830 0011C 0100 , 0283 ORG 101 
2840 O101C - 0000 0004 0284 ¢K101 0M OC4 --« BeREGISTER CUNSTANT 
2860 0101C 0286 »* SYSTEM MAILBOX = LABELS USED IN INITIALISATION 
2880 O101C o58P = 0288 ORG 580 
2890 0580C A0000 0001 0005 0289 MAIL DM c¢51A0000! BASE = STATUS + TO/FROM 
2900 0585C 0001 0017 0290 *SEND OM Cci7 +5 » TRANSMIT BUFFERS 
2910 0602C 0001 0021 0291 ‘SINK DM C21 +22 = RECEIVE BUFFERS 
2920 0623C 0001 0020 0292 DM C20 +43 = DIAL DATA ®NOT USED HERE 
2930 0643C 0001 0099 0293 ¢+IDEN 0M C99 +63 © IDENTIFICATION DATA 
2950 0742C 0295 #* VARIABLE LOCATION REFERENCES 
2970 0742C O56P 0297 ORG 560 
2980 0560C 0001 0020 0298 STAT DM ceo! | PARTITION STATUS BYTES 
3000 0580C 100P 0300 ORG 1000 | 
3010 1000C 0000000000 0001 0018 0301 ¢tECB DM C18'000000000000000000! COMMUNICATIONS CONTROL BLOCK 
3030 1018C 101X 0303 ORG 1018 
3040 1018C 0001 C044 0304 tIDLEB OM C44 IDLE MESSAGE BUFFER 
3050 1062C 0000 0020 0305 +*IMSG 0M oc20 FIELD FOR IDLE MESSAGE 
3070 1062C 150P 0307 URG 1500 
3080 1500C A 0001 0020 0308 BUFF1 v>M C20rat 
3090 1520C 0001 0080 0309 pM C80 
3100 1600C A oo01 0020 0310 BUFF2 DM C2O'A! 
3110 1620C 0001 0082 0311 DM C82 


3120 1702C 171R Q31e ORG ¥+10 


PAGE 


SEQe 


3130 
3140 


0009 11/24/71 (4#02) PROGRAM LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 


LOCN INSTR/DATA UP 


171eC 
1712e2C M 
1713C 


A/R 


0000 
0001 


L 


I 


B/S LI LINE LABEL OPCODE OPERAND(S) AND/OR COMMENTS 


0001 
0001 


0313 
0314 
0315 


M DM 
CARRET DM 
£ND 


oc 
CitMt 


CARRIAGE RETURN CONTROL CHAR 


0301 


0293 


PAGE 0001 
DEF e SYMBOL 
0245 A 
0308 BUFF 4 
0310 BUFF? 
0314 CARRET 
0246 D 
0043 DIALOO 
0062 DIALOS5 
0247 E 
- 0258 ERRI 
0259 ERR3 
0260 ERR3A 
O261 ERR4 
0262 ERR4A 
0239 IDEN 
0256 KON&O 
0313 M 
0232 MAIL 
0248 N 
0254 ONE 
0249 re) 
0244 QM 
0069 READ 
0073 READOS 
0079 READ10 
0086 READ1I5 
0243 SPACE 
0241 STAT 
0172 STATOS 
0178 STAT10 
0190 STAT15 
0196 STAT20 
0223 STAT25 
0191 STATEX 
0158 STATUS 
0242 TCON 
0255 TWO 
0250 V 
0251 W 
-0097 WRITE 
0109 WRTEOS 
0114 WRTELO 
0123 WRTIELS 
0140 WRTE2ZO 
0252 x 
0009 X1_ 
0011 x2 
0013 X32 
0253 ZEROS 
0277 tB4 
0281 ‘B10. 
0279 1B 
0280 $B9 
0276 {BASE 
tECB 


ft IDEN 


11/24/71 CRUSS REFERENCE LISTING FOR USER APPLICATION PROGRAM FOR DIAL ANSWER 


CFTOHHC FEES en eee e eee nen ea eREFERENCES ec oo rr ee re nero etennsnrece & 


0U3e 
Q009 
0013 
01793 
0119 
0063 
0044 
0043 
0056 
0208 


Q206 


Q180 
0178 


0118 
0055 
0038 
0027 
0172 
0140 
0097 
0082 
0091 
0078 
0074 
0080 


0165 
0167 
0e@2ee 
0159 
0219 
0086 
0086 
0103 
0226 
Q117 
0164 
0090 
0099 
Q124 
0133 
Q104% 
0166 


00¢6 
0020 


0079 
0078 
0117 
0027 
Q020 
0185 


0049 
0233 
0235 
Q207 
01414 


0073 


0196 
0190 


0090 


0224 


01e9 
0129 
0109 


0115 


0050 


QU80 
0118 
0140 
Q069 
OU2Z6 
QO2is8 


0062 


Q21% 


0213 


0133 


9227 


0173 


0158 
0081 


Q220 
0073 
0043 
0223 


0069 


O220 


O14e 


0201 


0172 
0081 
0119 


050 
0226 


O1e3 


0221 


0185 


0114 


Q123 
0103 


0223 


0190 


O14! 
0109 


0196 0206 


0158 


0164 


0213 
0166 


0221 
0178 


PAGE 0002 11/24/71 CRUSS REFERENCE LISTING FU USER APPLICATION PROGRAM FUR DIAL ANSWER 
DEF. -SYMBOL oe ee ee ee ere ee ee eREFERENCES® 06 sdies Sa wba wee eaeas | 


— 0304 tIDLEsS 

0305 = +tIMSG 

028% ¢K101 —— —_ 
0289 tMAIL 0032 0038 09049 0062 
0290 SEND 

0291 *SINK 

0298 t*STAT 0011 0244 


R-/3 


SINGER : + 


FRIDEN DIVISION x 


CONTROL NO. C218AA 


